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1. ABSTRACT 


This manual is a compilation of all the DEC/Xll 
documentation which is necessary for the MAINDEC- 
15-DAUCD-A paper tape exerciser module for the 
UC15. The manual contains the following: 


Name 


Maindec # 


A. DEC/Xll User Manual 

B. DEC/X11-UC15 Monitor 

C. XUCAB-DEC/Xll UC15 Module 

D. XRKAA-DEC/Xll RKll Module 

E. XLPAB-DEC/Xll LPll Module 

F. XCRAB-DEC/Xll CRll Module 

G. XDPAB-DEC/Xll DPll Module 

H. XXYAB-DEC/Xll XYll Module 


11-DXQAA-B-D 

11-DXQAC-B-LA 

11-DXUCA-B-D 

11-DXRKA-A-D 

11-DXLPA-B-D 

11-DXCRA-B-D 

11-DXDPA-B-D 

11-DXXYA-B-D 
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* SECTION 1 * 

• • 

* DEC/Xll EXERCISER DOCUMENT * 
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1 . abstract 

DEC/xn Is A SYSTEM EXERCtSEP EDR THE POt-'ll FAHILT. IT Is DESIGNED 
TO promote SYSTEM INTERACTION, AND TO DETECT SYSTEM FAILURES, IF ANY, 
CAUSED BY SAID INTERACTION. ADDITIONALLY, DEC/Xll IS DESIGNED TO BE 
USED AS AN OVERALL SYSTEM CONFIDENCE TEST, AND TO PROVIDE AN INDICATION 
OF THE integrity OF INDIVIDUAL SYSTEM COMPONENTS, TO THAT EFFECT, THE 
INDIVIDUAL SYSTEM COMPONENT TEST MODULES CAN BE WRITTEN TO BE EITHER 
SIMPLE OR extensive, DEPENDING ON THE THOROUGHNESS REQUIRED, 

The basic components of the dec/xh package arei 

A. DEC/xn MONITORS (STANDARD MONITOR, UCIS MONITOR). 

B. DEC/xn OPTION/OEVICE TEST MODULES, 

C. DEC/Xll CONFICURATOR/LINKER PROGRAM, 

THE MONITOR, TEST MODULES, AND THE CONFICuRATOR/LINKER PROGRAM ARE 
USED TO generate AN "EXERCISER MODULE" THAT IS LOADABLE By THE STANDARD 
AB 8 loader, in the EXERCISER MODULE ARE INCLUDED THE mOMtDr AND 
only those TEST MODULES REQUIRED BY THE SySTEM TO BE TESTED, THE 
CONFICURATOR/LINKER PROGRAM I 5 USED TO GENERATE THE DESIRED EXERCISER 
MODULE. THIS document DOES NOT CONCERN ITSELF WITH THE CONFIGURATION- 
LINKING PROCESS, IT ASSUMES THAT AN EXERCISER MODULE HAS BEEN CREATED, 
AND PROVIDES INSTRUCTIONS FOR ITS USE. DESCRIPTION AND INSTRUCTIONS 
FOR THE CONFIGURATOR/LINKER ARE FOUND IN THE CONFICURATOr/LINKEr 
DOCUMENTATION. (MAINOEC-1 1-DXOBA CONFIGURATION AND PROGRAMMING MANUAL). 
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2, RCOUIREHENTS 


2,1 hardware REQUIREMENTS 


2.1,1 PAPER TAPE CONFIGURATION 


TO CONFIGURE FROM AND TO PAPER TAPE THF FOLLOWING HARDWARE IS NEEDED 1 

A, PDP-11 PROCESSOR 

B, CONSOLE TELETYPE OR EQUIVALENT. 

C, PAPER TAPE INPUT AND OUTPUT (PCll, OR ASR33/3S TELETYPE). 

D, 8 K MINIMUM STORAGE, 

2.1,2 DECTAPE CONFIGURATION 


TO CONFIGURE TO OR FROM OECTAPE THE FOLLOWING HARDWARE IS NEEDED INSTEAD 
OF PAPER TAPEi 

A. TCll DECTAPE CONTROL 

B. TUS 6 DUAL DECTAPE TRANSPORT, 

2,1,3 RKll DISK cartridge CONFIGURATION 


TO CONFIGURE FROM DECPACK THE FOLLOWING HARDWARE IS REQUIRED INSTEAD 
OF PAPER TAPEi 

A. RKll DISK CONTROL 

B, PROS HIGH DENSITY DISK DRIVE AND CARTRIDGE, 
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2.2 SOFTWAPE requirements 

2.2.1 PAPER TAPE Cn^FIGUPATION 

'T SPECIAL SOFTWARE PEQL'IREMENTS . 

2.2.2 OECTAPE CONFIGURATION 

IN order to configure and load from DECTAPE, DOP2.DECTAPE PlAG»'nsTlC 
PACKAGE software IS REQUIRED. ( MA INDEC - 11 -DZQDD ) , 

2.2.3 PKII DISK CARTRIDGE CONFIGURATION 


TO CONFIGURE AND LOAD FROM RKll DISK CARTRIDGE, RKDP - RKll DIAGNOSTIC 
PACKAGE SOFTWARE IS REQUIRED, ( MAINDEC- 1 1 -DZODE ) , 
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3. LOADING PROCEDURE 


3,1 LOADING FROM PAPER TAPE 


LOAD THE exerciser NODULE BY MEANS OF THE ABSOLUTE LOADER, 

3,2 LOADING FROM DECTAPE 


THE EXERCISER MODULE IS LOADED BY TYPING THE FILE NAME WHILE UNDER 
control of the DDP2 MONITOR, THE EXERCISER MODULE MUST BE A NAMED FILE 
ON THE DECTAPE AND MUST HAVE AN EXTENSION OF .BIN op ,BIC , 

EXAMPLEl DECX1<CR> , OR 

DECX1<ALTM0DE> to self START AT OP0200. 

3,3 LOADING FROM RKll DISK CARTRIDGE 


THE exerciser MODULE IS LOADED BY TYPING THE FILE NAME WHILE UNDER 
control of the RKDP monitor, the exerciser module must be A named 
FILE ON the the cartridge, AND MUST HAVE AND EXTENSION OF .BIN 0P.8IC , 
EXAMPLE! DECX2<CR> ,OR 

DECX2<ALTM0DE> to self start at 000200. 


«••*•»•**« WARNING *•««*•«••• 

users of DDP2/TCDP OR PKDP PACKAGES MAY BE AWARE THAT THE "UPDATE" 
PROGRAM CAN BE USED TO LOAD PROGRAMS, BE AWARE THAT THE "UPDATE" 

PROGRAM does NOT INDICATE THE "LOAD MEDIUM" TO THE LOADED PROGRAM. 

AS DOES THE ODP2/TCDP OR RKDP MONITORCS), AND THEREFORE, IT IS POSSIBLE 
TO WIPE OUT THE LOAD MEDIUM DEVICE. IT IS ALWAYS BEST TO LOAD PROGRAMS 
by means of the appropriate DIAGNOSTIC PACKAGE MONITOR, AND NOT 
THE "UPDATE" PROGRAM. 
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4, STAPTING PPOCEDURE 

TO START* LOAD ADDR 000200 AND PRESS START. 

TO PF.STAPTi LOAD ADDR 001000 AND PRESS START, 

IN either a start op restart, the MONITOR TyPES ONE OE THE FOLLOWING 
MESSACESI 

oEc/xii Exerciser 


OP 

OEC/Xll exerciser 

write BUFEER rotation enabled, RANGE! XXXXXX yyiTVY 


THE second printout OCCURS ONLY IE THERE IS SUEEICIENT FREE CORE 
TO PERMIT ROTATION OF THE WRITE BUFFER, TO ROTATE, THERE MUST RE 
AT LEAST 1024 WORDS OF FREE CORE AVAILABLE. 

THE DOT (,) INDICATES THAT THE MONITOR IS READY TO ACCEPT OPERATOH 

commands through the keyboard. 
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5. OPERATING PROCEDURE 


THE DEC/Xll exerciser IS CONTROLLED BY MEANS OF KEYBOARD COMMANDS, 
AND THE SWITCH REGISTER (SR). 

5.1 SWITCH REGISTER OPTIONS 


SWITCH REGISTER OPTIONS APPLY ONLY DURING EXECUTION OF THE EXERCISER, 
THE OPTIONS AREl 


SR15 ■ 1 "HALT* MODULF AFTER ERROR, THE FAILING MODULE IS 

PREVENTED FROM FURTHER EXECUTION. NORMALLY, A "MODULE 
DROPPED* PRINTOUT PRECEDES HALTING OF THE MODULE. 

SR14 ■ 1 INHIBIT MODULE HALT AFTER 20 ERRORS, SR14 SET To A 1 

PREVENTS THE MONITOR FROM HALTING THE FAILING MODULE 
AFTER 20 ERRORS, IF SET TO A 0, SR14 WILL ENABLE THE 
MONITOR TO HALT THE MODULE AFTER THE 20TH ERROR, AFTER 
A *MQDULE DROPPED* MESSAGE. 


SR13 « 1 INHIBIT ERROR PRINTOUTS, 

SR12 ■ 1 INHIBIT "END OP PASS* PRINTOUTS, 

SRll ■ 1 LOCK.ON.ERROR SEQUENCE (WHENEVER IMPLEMENTED BY MODULES! 

setting the SR TO 074000 INHIBITS ALL PRINTOUTS, AND PREVENTS MODULE 
HALTS, IMPROVING THE CHANCES OP PERFORMING SCOPING OPERATIONS, 
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5,7 keyboard CO.w''AHDS 


THE FOLLOWING ChApACTEPS APE CONSIDERED VALID BY THE VONItOr, 

A TpROtlGH t, 

1 THROUGH R, 

SPACE, CAPRIAGE RETURN <rp>, LINE FEED <LF>, RUBOUT <177>, 

AND control C r“C) , 

ANY OTHER characters TyPED ARE IGNORED. 

A command Is ended by typing <CR>. PRIOp TO TYPING <CP> CORRECTIONS 
'’AY PE MADE BY USE OF THE RUBOUT KEY TO REMOVE A PREVIOUSLY TYPED 
character. Or by *C to kill all input and START AGAIN, 

IF TOO many characters are Typed, a "kbuf oflo" message is typed. 

COMMAND MUST BE GIVEN OVER AGAIN. 

AN "INVALID COMMAND" MESSAGE OCCURS IF THE COMMAND GIvEN IS NOT 
recognized by THE MONITOR, OR IF A "RUN" COMMAND IS GIVEN AND NO 
modules are SELECTED TO RUN, 

AN "INvALID/NEX NAME" MESSAGE OCCURS IF USER SPECIFJFS A NON-EXISTEnT 
MODULE, OR INVALID CHARACTERS ARE USED. 

AN "INVALID ADOR/DATa" MESSAGE OCC"RS IF USER SPECIFIES an ODD ADDRESS, 
OR IF NON. OCTAL NUMBERS ARE SPECIFIED, 

WHENEVER A MODULE NAME MUST RE SPECIFIED AS PART OF A KEYBOARD 
command, REMEMBER THAT A NAME ALWAYS CONSISTS OF SIX (6) CHARACTERS,. 
FXAMPLEl XTCAAA 
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5,2,1 the "MAP" COMMAND 


TYPING MAP AND <CR> RESULTS IN THE MONITOR TYPING LIST OF RESIDENT 
MODULES WITH THEIR PC AND STATUS, FXAMPLEl 

.MAP<CR> 


XPAAAA 

AT 

012544 

STAT 

1 40000 

XPABAA 

AT 

011470 

stat 

160000 

XKIAAA 

AT 

013706 

STAT 

140000 

xdnaaa 

AT 

015402 

STAT 

040020 

XCPAAA 

AT 

016176 

STAT 

040020 

WHERF, 1 






XpAAAA Is the module NAME, IN THE MODULE NAME TYPED THE FIRST 
FOUR CHARACTERS IDENTIFY THE TEST MODULE. THE FIFTH CHARACTER IS THE 
VERSION LETTER FDp THE MODULE, AND THE SIXTH CHARACTER INDICATES WHICH 
COPY or THE MODULE IS BEING DESCRIBED, IF THERE WERE THHFE COPIES OF 
THE MODULE AS PART OF THE EXERCISER MODULE, THE FIRST COPY'S SIXTH 
LETTER WOULD BE AN A, THE SECOND COPY'S A B, AND THE THIRD CORY'S A C, 

AT 012544 denotes THE ADDRESS OF THE MODULE'S FIRST wCIRd. (STARTING 
ADDRESS OF MODULE'S CODE, NOT THE STARTING ADDRESS). 


STAT 140000, MODULE'S STATUS. WHERE) 


BIT15 B 1 module is AN I/O MODULE CIOMOD), 

BIT15 B 0 MODULE IS A BACKGROUND MODULE (BKMOD). 


BIT14 B 1 MODULE IS SELECTED FOP EXECUTION. 

BIT14 B 0 module is DESELECTED. 


BIT13 B 1 IN PREVIOUS RUN, MODULE WAS HALTED. 

BIT13 B 0 IN PREVIOUS RUN, MODULE WAS NOT HALTED. 


THE RIGHT HALF OF THE STATUS WORD INDICATES THE PROCESSOR 

STATUS ASSUMED WHEN RUNNING THE MODULE. (0 FOR lOMODS AND NBKMOds, 

20 FOR BKMODS). 
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■i.2.? the sekect) command 

THE SELCECT) COMMAND IS USED TO ENABLE TO RUN ONE MODULE, OR ALL 
MODULES. EXAMpLESi 

,SEL<CP> 

SELECTS ALL MODULES FOR EXECUTION, 

.SEL XOCAAA<CR> SELECTS mqdULE xDCAAA ONLY. 

NQTEi WHEN exerciser IS FIRST LOADED, ALL MODULES APE SELECTED, 

5.2.3 THE DES(ELECT) COMMAND 

THE DESCELECT) COMMAND IS USED lO DISABLE ONE MODULE FROM RUNNING, OR 
all MODULES PROM RUNNING. EXAMPLES! 

,DES<CR> deselects ALL MODULES, 

.DES XOCAAA<CR> DESELECTS MODULE XDCAAA ONLY. 

5.2.4 combined use OF SEL AND DES COMMANDS 


TO SELECT ONE MODULE ONLYi 

.DES<CR> DESELECT ALL MODULES, 

.SEL XDCAAA<CR> SELECT MODULE XDCAAA. 

TO SELECT ALL MOOuLES BUT OMEl 

.SCL<CR> I SELECT ALL MODULES, 

.DES XDCAAA iDESELECT UNWANTED MODULE XDCAAA. 
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5.2.5 THE MODCIFY) COMMAND 

THE MODdFYJ COMMAND IS USED TO EXAMINE AND/OR MODIFY THE CONTENTS 
OF STORAGE, ALL ADDRESSES SPECIFIED MUST BE EVEN, 

EXAMPLESi 

.MOD 4000<CB> OPEN CONTENTS OF LOC 4000 

MONITOR TYPES! 

004000 123456 LOC 4000 CONTAINS 123456 

THE operator CAN! 

A. CLOSE LOC 4000 BY TYPING <CB>, OR 

B, TYPE A NEW VALUE AND CLOSE WITH. <CR>, OR 

C. TYPE A NEW VALUE AND OPEN NEXT WORD WITH <Lr>, OR 

D, CLOSE LOC 4000 AND OPEN NEXT WORD WITH <LF>. 


.MOD XDCAAA 20<CR> OPENS 20TH OCTAL WORD Of MODULE XDCAAA. 

MONITOR TYPES! 

012020 140000 20TH OCTAL WORD OF MODULE XDCAAA CONTAINS 

140000. THE ACTUAL ADOR IS 012020, 

same OPERATOR OPTIONS AS IN PREVIOUS EXAMPLE APPLY. 

AS CAN BE SEEN, THE MOO COMMAND MAKES IT POSSIBLE TO OPEN AND MODIFY 
NOT ONLY ABSOLUTE ADORESSES, BUT RELATIVE ADDRESSES, (RELATIVE TO 
START ADDRESS OF SPECIFIED MODULE), NOTE ALSO THAI WHEN A RELATIVE 
ADDRESS IS SPECIFIED, THE MONITOR RESPONDS BY TYPING THE ABSOLUTE 
ADDRESS OF RELATIVE ADDRF.SS SPECIFIED, 
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5.7.6 THE "HUN" COMMAND 


THE PUN COMMAND STARTS THE EXERCISER PUNNING. ONCE IN npi.lN wnDE", THE 
monitor starts only those modules THAI HAVE BEEN SELECTED. CH1T14 
OF MODULE'S STAT WORD IS SET). NBKMODS ABE PUN FIRST, ONE AT A TIME, 
I/O modules (INTERRUPT DRIVEN) ARE STARTED NEXT, AND THEN BACKGROUND 
MODULES ARE RUN ONE AT A TIME. 

TO START execution, TYPEI 

PUN<CR> 


5.2.7 ENDING EXERCISER »RUN" 


NORMALLY, ONCE STARTED. THE EXERCISER RUNS INDEFINITELY, UNLESSi 

A, THE OPERATOR TyPES CTRL C (*C), THE MONITOR THEN STOPS ALL “ODULES, 
AND TYPES A "RUN SUMMARY" THAT INDICATES THE MODULES THAT RAN, 

THE number OF PASSES MADE BY EACH MODULE, AND THE NUMBER OF ERRORS 
DETECTED BY EACH MODULE. 

B, IE AFTER A PERIOD OF TIME, DUE TO MODULE DETECTED ERRORS ALL MODULES 
ARE DROPPED, THE MONITOR TYPES A "RUN SUMMARY", AND GOES BACK TO 
COMMAND MODE. 

c. System error occurs, a system error is defined as a bus error trap, 

(TRAP TO LQC 4), OR A RESERVED INSTRUCTION TRAP (TRAP TO LDC 10). 
the monitor tyres a "SYS ERROR" MESSAGE, A "RUN SUMMARY" AND THEN 
RETURNS TO COMMAND MODE. 

5,2.8 THE "FILL" COMMAND 


THE MONITOR'S TYPEOUT ROUTINE NORMALLY OUTPUTS TWELVE (12) FILLER 
characters after a CARRIAGE RETURN. IN ORDER TO PREVENT GARBLED 

TYPEouTs When using the la30 s as The console device, the "Fill" 
command PERMITS THE USER TO CHANGE THE "FILLER" COUNT AND THE "FILL" 
character itself, to use, TYPEi 

FILL<CR> (REQUESTS CURRENT FILLER DATA TO BE OUTPUTTED, 

000014 XXXXXX (DATA IS OUTPUTTED. THE LEFT HALF IS THE FILLER 
(CHARACTER ITSELF, THE RIGHT HALF IS THE FILLER 
(COUNT. THE XXXXXX INDICATES THE PLACE WHERE THE 
(USER TYPES THE NEW DATA REQUIRED, EXAMpLE( 000001 
(CHANGES THE FILLER COUNT TO A 1, LEAVES FILL 
(CHARACTER AS 0, 
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5,2,9 handling of POWER FAILURE 


IF A POWER FAILURE OCCURS, DEC/Xll WILL: 

A, IF IN COMMAND MODE, THE MONITOR TYPES "PWR FAILURE" AND UPON 
RESTART, RETURNS TO COMMAND MODE. 

B. IF IN RUN mode, the MONITOR TYPES "PwR FAILURE", AND UPON RESTART, 
RESTARTS RUN MODE WITHOUT CLEARING PREVIOUS PASS COUNT OP ERpnp 
COUNT INFORMATION. THEREFORE, ROWER FAILURES ABE NOT A PROBLEM 

IN OVERNIGHT TESTING, 

5,2.10 "CHAIN" OPERATION OF DEC/XU 


DEC/Xll IS "CHAINABLF" UNDER DDP MONITORS (DDP2, RKDP, FTC ) DEC/Xll 
CHAIN OPERATION I® AS FOLLOWSI 

A, UPON STARTING, THE MONITOR DETERMINES THAT CHAIN MODE IS ENABLED, 
AND IMMEDIATELY COES INTO RUN MODE, 

B, EACH MODULE IS ALLOWED TO EXECUTE ONLY ONE PASS. 

C, WHEN all modules HAVE COMPLETED ONE pASS, THF MONITOR ENDS RUN MODE 
AND EXITS TO THE DDP MONITOR, 

D, IF THE CHAIN MONITOR RETURNS TO DEC/Xll THE MONITOR REPEATS STEPS 
B AND C. NO "RUN SUMMARY" IS TYPED AT END OF EACH CHAIN PASS, 
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A, EPPDRS 


6,1 SYSTP'l ERROR 


* SYSTEM ERROR PRINTOUT OCCURS WHENEVER INTENTIONALLY, OR UNINTENTIONALLY, 
A BUS ERROR TRAP (TRAP TO LOC 4 ) OR RESERVED INSTRUCTION TRAP OCCURS, 

A SYSTEM ERROR PRINTOUT LOOKS AS EOLLOWSl 

SYS ERROR 5SSS55 OOOOXX YYYYYY ZZZZZZ 

WHERE) 

ssssss contents or stack pointer (rS) at time or trap, 

OOOOXX 4 IF BUS ERROR, 10 IF RESERVED INSTRUCTION TRAP, 

YYYYYY PC AT TIME OF FAILURE, 

ZZZZZZ PROCESSOR STATUS AT TIME OF FAILURE, 

FOLLOWING A SYS ERROR, THE MONITOR TYPES A RUN SUMMARY IF RUN MODE 
WAS ACTIVE, AND THEN RETURNS TO COMMAND MODE, IF RUN MODE WAS NOT 
ACTIVE, THE MONITOR SIMPLY RETURNS TO COMMAND MODE, IF IN CHAIN MODE, 

THE MONITOR EXITS TO THE DDP MONITOR. 

THE MONITOR INTENTIONALLY CAUSES A SYSTEM ERROR, wHEN DUE TO SOME 
UNFORESEEN REASON, IT FINDS THAT ONE OF ITS QUEUES HAS OVERFLOWED, 
REFERRING TO THE TYPED PC HILL INDICATE WHICH OF THE QUEUES OVERFLOWED, 

IT IS NOT AN expected ERROR, 
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6,2 ERROR PRINTOUTS 


6.2,1 THE ERROR PRINTOUT 


TEST MODULES INDICATE ERRORS OTHER THAN A DATA ERROR BY “EANS OF THE 
"ERROR" PRINTOUT. THE "ERROR" PRINTOUT IS INVOKED BY MEANS OF AN 
"ERROR" CALL. THE "ERROR" PRINTOUT LOOKS AS FOLLOWS) 


XDCAAA pc XXXXXX APC YYYYYY ERPI NNNNNN 
ACSR AAAAAA CSRC CCCCCC STATC SSSSSS 


WHEREl 


XDCAAA 
PC XXXXXX 
APC YYYYYY 
ERR# NNNNNN 
ACSR AAAAAA 
CSRC CCCCCC 
STATC SSSSSS 


FAILING MODULE NAME, 

ACTUAL PC or ERROR CALL. 

ASSEMBLED PC OF ERROR CALL. 

error count in CURRENT RUN (DECIMAL), 

CSR ADDR OF FAILING DEVICE, 0 IF NOT APPLICABLE, 
contents of failing DEVICE CSR. 0 IF NOT APPLICABLE. 
CONTENTS OF FAILING DEVICE STATUS REG, IF APPLICABLE, 


USING THE VALUE TyPED IN AFC YYYYYY THE USER SHOULD HAVE NO TROUBLE 
LOCATING IN THE LISTING THE ERROR CALL CAUSING THE PRINTOUT. ERROR CALLS 
ARE PRECEDED AND FOLLOWED BY A LINE OF ASTERISKS (*), TO make THEM 
STAND OUT FROM THE LISTING, THE ERROR CALL ITSELF LOOKS AS FOLLOWS) 


ERROH,, BEGIN IREASON FOR FAILURE. 

6,2,2 the "EXTENDED" ERROR PRINTOUT 


XDCAAA PC XXXXXX ApC YYYYYY ERRI NNNNNN 
ACSR AAAAAA CSRC CCCCCC STATC SSSSSS 

XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX XXXXXX 

THE first two lines OF THE EXTENDED ERROR PRINTOUT HAVE THE SAME MEANING 
AS THE ERROR PRINTOUT IN 6.2.1 ABOVE, THE THIRD AND ADDITIONAL LINES 
IF ANY, CONSIST OF UP TO EIGHT (8) OCTAL VALUES. THEY ARE PRINTED TO 
PROVIDE ADDITIONAL INFORMATION ON THE NATURE OF THE ERROR, THE USER 
MUST REFER TO THE ERRING MODULE'S DOCUMENTATION TO OBTAIN THE MEANING 
or the OCTAL VALUES PRINTED. 
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6.3 the "DATA PPPDR" PRlMTnUT 


TEST yODULES PEPOPT DATA EPpOpS BY MEANS DE A DATA EPPOp PRINTOUT 
which is invoked by the "DATFR" call, the JATA EPPOP PRINTOUT LOOKS 
AS FOLLOWS! 


XDCAAA PC XXXXXX APC YYYYYY EPPt NNNNNN 

ACSR AAAAAA S/B BBBBBP WAS WWWWWW SBADP DDDDDD WASADP EEEEEE DATA FpPOR 


WHEPEl 


XDCAAA 
PC XXXXXX 
APC YYYYYY 
CPPfNNNNHN 
ACSR AAAAAA 
S/B BBRBBB 
WAS WWWWWW 
S/BADR DDDODD 
WASADP EEEEEE 


failing module name. 

ACTUAL PC or DATEP CALL. 

ASSEMBLED PC OF DATEP CALL. 

EPPOP COUNT FOR CURRENT RUN, (DECIMAL). 
CSR ADDP or FAILING DEVICE. 

EXPECTED DATA (GOOD DATA) 

OBTAINED DATA (BAD DATA) 

ADDRESS OF EXPECTED DATA 
ADDRESS or BAD DATA 


USING THE VALUE TYPED IN APC YYYYYY THE USER SHOULD HAVE NO TROUBLE 
IN LOCATING IN THE MODULE LISTING THE DATEP CALL. DATEP CALLS 
APE PRECEDED AND FOLLOWED BY ASTERISKS (•), TO MAKE THEM STAND OUT, 
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7. NORMAL printouts 


7.1 "ENDPAS" PRINTOUT 


the ENDPAS PRINTOUT IS USED BY A MODULE TO INDICATE THAT A PASS HAS 
BEEN COMPLETED. THE DEFINITION OF WHAT A "PASS" INVOLVES CAN BE FOUND 
IN the documentation FOP EACH MODULE. FOLLOWING THF ENDPAS PRINTOUT 
MODULE EXECUTION CONTINUES, UNLESSi 

A, THE MODULE IS A BACKGROUND MODULE, IN WHICH CASE THF MONITOR 
STARTS EXECUTION OF THE NEXT BACKGROUND MODULE, 

B, chain MODE IS ACTIyE, EACH MODULE IS ALLOWED ONE PASS ONLY, 
the ENDPAS printout LOOKS AS FOLLOWS! 

XDCAAA PC XXXXXX APC YYYYYY ENDPAS NNNNN, 

WHFRE ENDPAS NNNNN. IS THE PASS NyMBER (DECIMAL) COMPLETED. 

7.2 THE "DROPPED" PRINTOUT 


THE "DROPPED" PRINTOUT IS CALLED BY MEANS OF AN "END" CALL, OR IT CAN BE 
GEVEPATED by the MONITOP. following THE "DROPPED" PRINTOUT, THE MODULE 
DROPPED IS not allowed TO EXECUTE FOR THE REMAINDER OF THE EXEPCISEP 
RUN, THE "DROPPED" PRINTOUT OCCURS! 

A. AFTER AN ERROR, WHETHER PRINTED OP NOT, IF SP15 IS SET TO A 1 . 

(HALT MODULE AFTER ERROR J. 

R. AFTER THE 20TH ERROR, WHETHER PRINTED OR NOT, IF 5P14 IS SET TO 0, 

SPI4 SET TO A 1 INHIBITS MODULE HALT AFTER 20TH ERROR. 

C, WHEN A MODULE, DUE TO AN ABNORMAL CONDITION, DETERMINES THAT IT IS BEST 
TO DROP FROM EXECUTION, (NO DRIVES AVAILABLE ON DECTAPE, ETC,), 
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7,3 "P"^ St.'MWAPY" PFIMTOOT 


A ‘’PI'K SUMMARY" PRINTOUT OCCURS AT THE £*'0 OF AN EXERCISER PUN. AN 
EXERCISER run ENDS WHEN "RUM MPDE" IS CLEARED BY ONE OF THE FOLLOWINGi 


A. depressing "C (CONTROL C) ON THE KEYBOARD. OP 

B. SYSTEM ERROR OCCURS. (SEE SECTION 6,1), 

the intent of the RUN SUMMARY IS TO INDICATE THE MODULES THAT PARTICIPATED 
IN THE EXERCISER RUN, THE NUMBER OF PASSES MADE BY EACH MODULE, AND 
THE number of ERRORS DETECTED BY EACH MODULE. THE RUN SUMMARY IS USEFUL 
IN comparing system performance AT DIFFERENT TIMES. EXAMPLEj 


THE RUN summary SERVES AS A MEANS OF DETECTING MODULES THAT HAVE BECOME 
"HUNG", DUE TO NO INTERRUPTS RECEIVED FROM A DEVICEW, DEC/Xll DOES NOT 
HAVE "WATCH DOG" TIMERS. A RUN SUMMARY LOOKS AS FOLLOWS: 


PUN summary 
XOCAAA AT XXXXXX 
XLPAAA AT XXXXXX 
XTCAAA AT XXXXXX 
XTMAAA at XXXXXX 


stat ssssss pascnt 
stat ssssss pascnt 
stat ssssss pascnt 
stat ssssss pascnt 


CCCCC, ERRCNT EEEEE, 
CCCCC, ERRCNT EEEEE, 
CCCCC, ERRCNT EEEEE, 
CCCCC. ERRCNT EEEEE. 


WHERE PASCNT AND ERRCNT ARE DECIMAL NUMBERS, 


NOTEI TYPING A 2N0 *C WILL INHIBIT FURTHER TYPING OF RUN SUMMARY, 


7,4 THE "ROTATION ENABLED" PRINTOUT 


write BUFFER ROTATION ENABLED, RANOEi XXXXXX YYYYYY 

THE above PRINTOUT OCCURS WHEN THE MONITOR DETERMINES THAT THERE 
IS SUFFICIENT "FREE CORE" ABOVE THE LAST TEST MODULE, TO PERMIT 
REASSIGNING THE WPlTE BUFFER ADDRESS, IF NO FREE CORF EXISTS, THF 
PRINTOUT DOES NOT OCCUR, AND THE WRITE BUFFER IS ASSIGNED WITHIN 
THE ADDRESS RANGE OF THE MONITOR CODE, 

IN THE OEC/Xll exerciser# TEST MODULES CONTAIN THEIR OWN INTERNAL 
READ BUFFER, BUT MUST USE THE ADDRESS ASSIGNED BY THE MONITOR AS 
THE starting address OF THEIR WRITE BUFFER. THE WRITE BUFFER CANNOT 
EXCEED 1024 WORDSdO). ROTATING OF THE WRITE BUFFER ADDRESS THROUGHOUT 
FREE CORE HELPS TO INSURE THAI NPR TRANSFERS OCCUR FROM EVERY BANK 
OF FREE CORE UP TO 2SK. 
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7.5 "PWR FAILURE" PRINTOUT 


PWR FAILURE 

this printout OCCURS UPON RESTART FROM POWER FAILURE, TO INDICATE 
ITS occurrence, if pun mode was ACTIVE AT TIME oE POWER FAILURE, 
RUN MODE IS reactivated. IF NOT, MONITOR GOES TO COMMAND MODE TO 
AWAIT KEYBOARD COMMANDS, 

7,6 "ASCII PRINTOUTS" 


THE DEC/Xll MONITOR PROVIDES THE CAPABILITY FOP MODULES TO OUTPUT 
"ASCII" messages# in ADDITION TO THE STANDARD CANNED MESSAGES, THE 
ASCII MESSAGE CAPABILITY CAN BE USED BY A MODULE TO REPORT AN ERROR 
CONDITION, STATUS CONDITION, END OF PASS STATISTICS, ETC. EXAMPLE! 

XLPAAA PC XXXXXX APC YYYYYY 
LP IS OFF line 

XPKAAA PC XXXXXX ApC YYYYYY 
DATA TRANSFEPSI XXXXXX 
SOFT ERRORS! YYYYYY 
HARD ERRORS! ZZZZZZ 
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a, f>E5CPIPTIO*J 


THE BASIC COMPONENTS OF THE DEC/Xll PACKAGE AREi 

A, DEC/Xll monitors fCSXMQM STANDARD MONITOR, AND liNI«ON UCl5 '•ONITOR). 

B, DEC/Xll TEST modules, 

c. DEC/Xll configuratop/linkep program, 

PEC/Xll MAS BEEN DESIGNED TO PROylDE THE USER WITH THE »'e:aNS TO 

CUSTOM make a system exerciser uniquely tailored to the system 

TO BE tested, as OPPOSED TO ANOTHER APPROACH THAT WOULD PROVIDE 
A FIXED, general purpose EXERCISER THAT WOULD CONTAIN ALL PDSSiBLF 
modules FOR ALL DEVICES AND OPTIONS, THE DISADVANTAGES OF THF TATTER 
APPROACH AREl 

A, GREATER CORE REQUIREMENTS, 

B, NEED TO RE-DO AND RETEST THE ENTIRE EXERCISER WHENEVER A NEW DEVICE 
OR OPTION BECOMES AVAILABLE, 

C, GREATER INTERFACING PROBLEMS FOR CUSTOMER WRITTEN MODULES, 

SOME ADVANTAGES OF THE OEC/Xll APPROACH AREl 

A, ONLY those MODULES NEEDED FOR A PARTICULAR SYSTEM NEED BE INCLUDED. 

B, CORE REQUIREMENTS ARC LESS, 

C, WHEN A new OCVICE/OPTION BECOMES AVAILABLE ALL THAT NEED BE DONE 
IS TO WRITE and TEST A TEST MODULE, 
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8,1 DEC/Xll MONITOR (CSXMONJ 


CSXMON IS THE CONTROL PROGRAM FDR DEC/Xll. IT HAS THF FOLLOWING FU*JCTinrsi 

A. ACCEPTS KEYBOARD COMMANDS AND PERFORMS THEM, 

B. CONTROLS EXECUTION OF UP TO 100(10) MODULES, 

C. PERFORMS write BUFFER ROTATION WHEN POSSIBLE. 

D. IS ABLE TO RECOVER PROM POWER FAILURE. 

E. PROVIDES PRINTING SERVICES FOR TEST MODULES, 

9,1,1 MONITOR ROUTINES 


INPUT INPUT routine INITIALIZES THE MONITOR STACK, AMD SETS 

up TO ACCEPT KEYBOARD INPUT, IT THEN DROPS TO ROUTINE 
QUETST. 

QUEIST QUETST ROUTINE CHECKS QUEUES AND INDICATORS TO SEE 

IF ANY ROUTINE OR MODULE REQUIRES SERVICE, QUETST 
CHECKS IN THE FOLLOWING PRIORITY SEQUENCEi 

IOQUE REQUESTS • SERVICE lOQUE REQUEST, 

TYPQUE REQUESTS - SERVICE TYPE QUEUE. 

BKQUE INDICATOR - RESUME BACKGROUND MODULE, 

RUN mode indicator « 00 ID RUNSVC AND START MDDUT.E. 

RUNSVC RUNSvC PEBFORMS THE FOLLOWING FUNCTIONS | 

A. ROTATES WRITE BUFFER POINTER. 

B, QUEUES UP MODULES FOR EXECUTION ACCORDING TO FOLLOWING 
SCHEME I 

1. ALL I/O MODULES ARE STARTED FTBSt. 

2, BACKGROUND MqDULES ARE STARTED NEXT qNE 

AT A TIME, A BACKGROUND MODULE MUST RUN TO 
COMPLETION BEFORE THE NEXT IS STARTED. 

TO accomplish this, LOC "BRAKE" IS SET 
WHENEVER A BACKGROUND MODULE IS STARTED. 

IT IS NOT CLEARED UNTIL THE MODULE COMPLETES 
ONE PASS, 
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TOOSVC I/O OUEUE service ROUTINE. THIS ROttTINE SERVICES ALL 

REQUESTS OTHER THAN A ■'!*>£" REQUEST, AN lOQUE REQUEST 
CAN BE A REQUEST EOR DELAYED SERVICE tPIPO CALL), OR 
A request to transfer control to a particular MonuLE 
(MONITOR ONLY) OR ADDRESS. 

lOQUE REQUESTS ARE SERVICED ON A FIRSI-IN ElRST-nUT 
BASIS. THE I/O QUEUE CAN HOLD UP TO 200(10) REQUESTS 
BEFORE OVERFLOWING. 

AN lOQUE REQUEST CONSISTS OF THREE WORDS AS FDLLOWSI 
CALL, DESTINATION ADDR, MODULE ADDR 
lOQSvC PERFORMS THE FOLLOWING ACTIONS) 

A. GET DESTINATION ADDR. 

B. CHECK MODULE ADDR. IF 0, 50 TO DESTINATION ADDR, 

(0 INDICATES THE MONITOR MADE THE CALL). 

C. IF MODULE ADDR NOT 0, 

D. SAVE MONITOR REGISTERS, 

E. SAVE MONITOR STACK POINTER, 

F. RESTORE MODULE'S REGISTERS, 

5. RESTORE MODULE'S STACK POINTER, 

H, GO TO MODULE'S DESTINATION ADDR. 

BKOSvC background module service ROUTINE, BKOSyC CAUSES A 

BACKGROUND MODULE THAT HAS BEEN SUSPENDED TO BE RESUWED, 
by fetching the MODULE'S PC AND STATUS, AND THEN GOING 
TO lOQSVC ROUTINE TO PERFORM THE TRANSFER. 
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TYPSVC TYP5VC SERVICES THE TYPE QUEUE, THE TYPE QUEUE IS 

300(10) WORDS LONG, TYPSVC SERVICES THE FOLLOWING 
TYPE REQUESTS I 

MSG. message 

END DROPPED MODULE PRINTOUT 

ENDPA5 END OF PASS PRINTOUT 
ERROR ERROR PRINTOUT 
DATERR DATA ERROR PRINTOUT 

MSG, MSG CALL SERVICE ROUTINE, OUTPUTS WHATEVER ASCII MESSAGE 

THE MONITOR REQUIRES, 

M50N, OUTPUTS MODULES' ASCII MESSAGES, 

ENDSVC END CALL SERVICE ROUTINE, OUTPUTS MODULE DROPPED MESSAGE 

PASEND ENDPAS call SERVICE ROUTINE, OUTPUTS END OF PASS PRINTOUT. 

ERRSVC error, ERROrN, AND DATERR CALL SERVICE ROUTINES. 

ERSVCI 

ERSVC2 

TRCI TRACE trap SERVICE ROUTINE. BACKGROUND MODULES TRAP 

TO THIS ROUTINE AFTER EACH MODULE INSTRUCTION, tRCI 
CHECKS TO SEE IF ANY IOQUE OR TYPQUE REQUESTS ARE 
PENDING. IF NOT, TRCI PERFORMS AN RTI Op pTT INSTRUCTION 
TO return to the BACKGROUND MODULE, IF YES, TRCI SAVES 
THE MODULE'S PC AT TRCPC, AND THE STATUS AT TRCPSW. 

IT THEN GOES TO ROUTINE EXIT. 

exit. routine exit, is ENTERED WHENEVER A MODULE MUST GIVE UP 

CONTROL TO THE MONITOR (EXIT CALL, PIPQ CALL), 

EXIT. SAVES THE MODULE'S REGISTERS AND STACK POINTER, 
RESTORES THE MONITOR'S REGISTERS AND STACK POINTER, 

AND then goes TO ROUTINE QUETST TO CHECK QUEUES, 
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TYPO, THIS POUTJHE OUEb'ES "P ENp AND ENppAS CALLS HN THE 

type queue and then performs an AUTOMATIC EXIT, 
fMODULE POES NOT GET CONTROL UNTIL MESSAGE IS PRINTED), 

TyPgi, QUEUES UP msg CALL (“ONITOR ONLY), AND THEN GOES 

TO ROUTINE QUETST. 

TyPOJ, QUEUES UP ERROR AND DATERR CALLS IN TyPO QUEUE, AMD 

PERFORMS AUTOMATIC EXIT. 

PIRQ. QUEUES UP PIPQ CALL IN I/D QUEUE. AND THEN PFPEORMS 

AN RTI TO EXIT MODULE'S INTERRUPT SERVICE. 

OUE. queues up OUE CALL (MONITOR ONLy) AND GOES TO OUETST . 

KBSVRC KEYBOARD SERVICE ROUTINE. 

CTRLCA CTRL C (*C) SERylCE ROUTINE. IF NOT IN RUN MODE, ISSUES 

CTPLCB reset, CLEARS QUEUES, OUTPUTS "C , AND GOES TO ROUTINE 

"INPUT", IE IN RON MODE, ISSUES RESET, CI.EARS QUEUES, 
OUTPUTjS *C, CHECKS FOR CHAIN MODE, IF IN CHAIN MODE, 
COES TO ROUTINE CHNOUT TO EXIT TO DDP MONITOR, IE NOT 
IN CHAIN MODE, OUTPUTS RUN SUMMARY. 

TyPE TyPE SUBROUTINE, OUTPUTS ASCII STRINGS TO TELEPPINTfP, 

COMtAB table of valid keyboard COMMANDS AND POINTERS TO 

DESIRED ROUTINES, 

DECODE command DECODER ROUTINE, USES CONTENTS OF COMTAB TO 

DETERMINE COMMAND TO BE EXECUTED, 
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run ROUTINE TO SET UP "RUN MODE", PERFORMS THE EOLI, OWING! 

A. CLEARS MODULE COUNTER, 

B. IE NOT IN CHAIN MODE, OR UP FROM POWER FAIL, CLEARS 
MODULES' PASCOUNT AND ERROR COUNTERS, AND STOP BITS. 

C. INCREMENTS MODULE COUNTER FOR EACH MODULE FOUND 
READY TO RON (SELECTED, NOT STOPPED), 

D. IF MODULE COUNTER NOT 0, SETS RUN MODE INDICATOR, 

AND GOES TO QUETST, 

E. IF MODULE COUNTER IS 0, TYPES "INVALID COMMAND" MESSAGE. 

Map TyPES directory or core resident modules, their start 

ADDRESS, AND THEIR STATUS. 

SEL routine to select a module op all modules, sets HIT14 

OF LOC "STAT" IN THE MODULE. 

DES ROUTINE TO DESELECT A “ODULE OR ALL MODULES, CLEARS 

BITI4 OF LOC "STAT" IN MODULE, 

MOD MODIFY ROUTINE, EXAMINES (TyPES OUT) CONTENTS OF A 

CORE LOCATION (EVEN), AND CHANGES CONTENTS TO mew VALUE 
IF DESIRED (VIA KEYBOARD), 

CLRQUS ROUTINE TO CLEAR VARIABLES, QUEUES, AND TO FILL 

VECTOR AREA WITH ,+2 AMD HALT, 

PUSERR ROUTINES TO OUTPUT "SyS ERROR" PRINTOUT. 

RESINT 

PWPDN UPON POKER FAILURE. POINTS POWER FAIL VECTOR TD PwRuP 

ROUTINE, SAVES CONTENTS OF PUN MODE INDICATOR, AND HALTS. 

PwRUP UPON POKER FAIL RESTART, POINTS POWER FAIL VECTOR 

TO PWRDN routine, RESETS STACK, CLEARS QUEUES, AND OUTPUTS 
"POWER FAILURE" MESSAGE, IF RUN MODE WAS ACTIVE, 

GOES TO "RUN" ROUTINE, IF RUN MODE WAS NOT ACTIVE, 

GOES TO "INPUT" 



> 
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B.7 CEC/Xll MOOUEES 


TEST MODULES WRITTEN FOP DEC/XU APE RELOCATABLE OBJECT MODULES THAT 
MUST BE LINKED TOGETHER WITH THE MONITOR IN ORDER TO PRODUCE A USABLE 
ABSOLUTE FORMAT FILE LOADABLE BY THE "ABS" LOADER, 

Two Types of modules can be writteni i/o modules ciomod), and 
BACKGROUND MODULES (BKMOP). 

8,2.1 I/O MODULES (lOMOD) 


AN I/O MODULE (lOMOD) IS DEFINED AS ONE THAT ONCE STARTED BY THE 
MONITOR IS DRIVEN STRICTLY BY INTERRUPTS AND RUNS CONTINItOUSLY . 

AN lOMOD DEPENDS ON EXPECTED INTERRUPTS TO OCCUR IN ORDER TO CONTINUE 
EXECUTION. IF AN EXPECTED INTERRUPT SHOULD NOT OCCUR, THE MODULE 
BECOMES "HUNG", THERE ARE CURRENTLY NO MEANS TO DETECT A HUNG MODULE, 
EXCEPT BY THE OPERATOR NOTING THAT ENDPA8 PRINTOUTS ARE NO LONGER 
OCCURRING, AND BT THE RUN SUMMARY PRINTOUT, AN lOMOD DOES NOT RUN 
IN TRACE MODE. 


8.2,2 TRACE MODE BACKGROUND MODULES (BKMOD) 


A BACKGROUND MODULE CAN BE INTERRUPT DRIVEN, IN WHICH CASE IT ACTS 
VERY MUCH LIKE A" lOMOD (IT CAN GET HUNG), OR IT CAN CONSIST OF 
NON-INTERRUPTING CODE, A BACKGROUND MODULE IS RUN IN TRACE MODE 
(A TRACE TRAP OCCURS AFTER EVERY MODULE INSTRUCTION), IN ORDER TO 
RERMIT SERVICING I/O MODULES. BRMQDS ARE RUN ONE MODULE AT A TIME, 


8,2.3 NON-TRACE MODE BACKGROUND MODULES (NBKHOD) 


NBKMOD MODULES ARE RON ONE AT A TIME BEFORE ANY OTHER TYPE OF MODULE 
CAN BE RUN. NBKMOD MODULES DO NOT RU" IN TRACE MODE, THEIR MAIN FUNCTION 
IS TO RUN FIRST IN ORDER TO SET UP SPECIAL CONDITIONS, FOR EXAMPLE! 

A PARITY MODULE WOULD RUN TO INSURE THAT ALL PARITY MEMORY HAS 
CORRECT PARITY, AND THEN WOULD TERMINATE, FROM THAT POINT ON, THE 
PARITY MODULE WOULD AWAKEN ONLY IN CASE OP A PARITY ERROR, 
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8.2,4 MODULE ORGANIZATION 


TEST MODULES ARE ORGANIZED IN TWO SECTIONSI 

1, MODULE FRONT END INTERFACE, 

2, MODULE CODE ITSELF. 

8,2,5 MODULE FRONT END INTERFACE 


A MODULE'S FRONT END INTERFACE (SEE APPENDIX A) IS REQUIRED BY THE 
monitor in ORDER TO CONTROL OPERATION OF THE MODULE, THE MODULE'S 
INTERFACE CONSISTS OF 56 WORDS USED AS FOLLOWSi 

MODNAMi 6 bytes (3 WORDS), MODULE NAME IN ASCII. 

ADDRI 1 WORD. CONTAINS ADDRESS OF FIRST REGISTER OF DEVICE TO BE 
TESTED 

VECTOR! 1 word! CONTAINS ASSIGNED DEVICE VECTOR. 

BRl! 1 BYTE, 1ST BR LEVEL. 

BR3! 1 BYTE. 2ND BR LEVEL IF ANY. 

OVIDli 1 WORD, DEVICE COUNT. USED TO INDICATE NUMBER OF DRIVES, 

OR DEVICE MULTIPLES TO BE TESTED, ONE BIT IS SET EOr EACH ONE. 
EXAMPLEll IF A MAGTAPE CONTROL HAS 8 DRIVES, BITS 0 THROUGH 7 
OF DViOl WOULD BE SET, BIT 0 INDICATING DRIVE 0, AND BIT7 
INDICATING DRIVE 7. 

EXAMPLE2! IE A MODULE TESTING A DC 1 1 IS TO TEST 16 DCn'S, 

ALL BITS WOULD BE SET IN DVIOl, DVlDl BITO WOULD CORRESPOND 
TO DCll 10, AND DVIDl BIT15 WOULD REPRESENT DCtl 115, 

SRl! 1 WORD, INTERNAL SWITCH REGISTER FOR MODULE. 

STATi 1 WORD, MODULE STATUS WORD. HIGH ORDER BITS PROVIDE INFORMATION 

ABOUT THE MODULE AS FOLLOWS | 


Bins ■ 1 
BIT15 ■ 0 
eiTt4 ■ 1 
BIT14 > 0 
8IT13 ■ 1 
BIT13 a 0 


MODULE IS AN I/O MODULE, 

MODULE IS BACKGROUND MODULE, 

module is selected for running. 

MODULE IS NOT SELECTED FOR RUNNING, 
MODULE HAS BEEN STOPPED, 

MODULE HAS NOT BEEN STOPPED, 


THE LOW ORDER BYTE IS USED TO INDICATE THE PROCESSOR STATUS TO BE 
USED WHEN GIVING CONTROL TO THE A MODULE, THE STATUS IS 0 FOR lOMODS 
AND NBKMODS, AND 20 FOR BKMODS (TRACE MODE), 
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TMTl 

1 WORD. CONTAINS THE MODULE'S START ADDR. 

SPOINTI 

1 WORD, CONTAINS ADDR TO LOAD IN STACK POINTER WHEN FIRST 
STARTING THE MODULE. 

PASCNTI 

1 WORD. PASS COUNTER. 

FRRCNTI 

1 WORD. ERROR COUNTER, 

SVRO - SVR6I 

6 WORDS, LOCATIONS TD SAVE CONTENTS OF MODULF'S 
registers and STACK POINTER WHEN MODULE GIVFS CONTROL 

TO THE MONITOR. 

CSRAI 

1 WORD. CONTAINS ADDR OF FAILING DEVICE CSR, 

SBADR/ACSR 1 

1 WORD, WHEN DATA ERROR OCCURS, CONTAINS ADDRESS OF 

GOOD data. WHEN ERROR CALL OCCURS, CONTAINS CONTENTS 
or FAILING DEVICE CSR. 

WASADP/ASTATl 

1 WORD, CLEARED AFTER ERROR PRINTOUT, WHEN DATA 

ERROR OCCURS, CONTAINS ADDR OF BAD DATA, IF ERROR, 

CONTAINS CONTENTS OF FAILING DEVICE STATUS REGISTER, 

IF APPLICABLE. 

ASBt 

1 WORD. CLEARED AFTER ERROR PRINTOUT. CONjAINS EXPECTED 
GOOD DATA, 

AWASI 

LOC 64-162 

1 WORD, cleared AFTER ErrOR PRINTOUT. CONTAINS ACTUAL DATA 
(BAD DATA). 

32 WORDS. MODULE'S STACK. WHEN A MODULE RUNS, IT 

OPERATES ON ITS OWN STACK. 
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8,2,6 MODULE CODE 


THE MODULE'S CODE CONSISTS OE STANDARD PDP-11 CODE, WITH THE FOLLOWING 

BESTPICTIONS LISTED BELOW. ADDITIONAL INFORMATION IN CODING DEC/Xll 

modules is described in MaINDEC-11-DXOAE, module programmer's GUIDE, 

A, CODE MUST EXECUTE IN ALL PDP-11 FAMILY PROCESSORS. 

B, NO HALT INSTRUCTIONS, 

C, NO WAIT INSTRUCTIONS, 

D, NO EMT CALLS. 

E, NO TRAP CALLS EXCEPT EOP THOSE SPECIFIED IN SECTION 8,2,7 

r. NO PROCESSOR STATUS WORD MODIFICATIONS, 

G, I/O MODULES MUST NOT PERFORM WAITING LOOPS THAT INHIBIT 
OTHER MODULES FROM RUNNING, 

H, GENERAL REGISTERS ARE TO BE USED IN INTERRUPT SEQUENCES ONLY AFTER 
FIRST BEING SAVED, AND MUST BE RESTORED PRIOR TO EXITING THE 
INTERRUPT SEQUENCE, 

I, THE STACK POINTER MUST NOT BE MODIFIED IN ORDER TO EXIT AN INTERRUPT 
SEQUENCE (USE PIRQ CALL), 

ESPECIALLY IN THE CASE OF AN lOMOD. mqDuLE CODE CAN RE BROKEN DOWN 

INTO 3 SECTIONSI 

A, initialization, CODE REQUIRED TO SET UP THE TEST, AND TO TSSUF THE 
FIRST I/O command. CODE IS TERMINATED WITH AN EXIT CALL TO THE 
MONITOR. MODULE DOES NOT REGAIN CONTROL UNTIL INTERRUPT OCCURS, 

B, INTERRUPT SERVICE. EXCEPT FOR DEVICES THAT HAVE BP LATENCY PROBLEMS, 
THIS IS THE CODE REQUIRED TO ACKNOWLEDGE THE FACT THAT AN INTERRUPT 
HAS BEEN received, AND TO QUEUE UP A REQUEST TO SERVICE THE 
INTERRUPTING DEVICE AT A LATER TIME, THE PHILOSOPHY APPLIED 

SAYS THAT MODULES MUST EXECUTE ONLY A MINIMAL AMOUNT OF CODE AT 
A PROCESSOR STATUS OTHER THAN 0 IN ORDER TO PREVENT LOCKING OUT 
OTHER DEVICES FROM INTERRUPTING, QUEUEING UP FOR DEFERRED SERVICE 
IS ACCOMPLISHED BY MEANS OF THE PIRO CALL. THE PIRQ CALL REQUESTS 
THE MONITOR TO GIVE CONTROL TO THE MODULE AT A SPECIFIED ADDRESS 
AT ITS EARLIEST OPPORTUNITY. THF MONITOR STORES THE REQUEST, AND 
THEN PERFORMS AN RTI INSTRUCTION TO EXIT THE MODULE'S INTERRUPT 
SERVICE SEQUENCE, 

MODULES WITH BR LATENCY PROBLEMS MUST SERVICE THEIR DEVICE AT THE 
interrupting STATUS, BUT MUST MAKE. THE DEVICE SERVICE AS SHORT 
AS POSSIBLE, AND THEN EXIT WITH AN RTI INSTRUCTION, IF AN ABNORMAL 
CONDITION IS ENCOUNTERED, THEN THE SERVICE OF THAT CONDITION MUST 
BE DEFERRED, AND A plRQ CALL IS USED TO EXIT THE INTERRUPT SEQUENCE. 

C, DEVICE SERVICE. THIS CODE IS EXECUTED AFTER THE INTERRUPT SERVICE 
SEQUENCE, IT CONSISTS OF THE CODE REQUIRED TD SEE THAT AN I/O 
OPERATION HAS OCCURRED SUCCESSFULLY, TO SERVICE ABNORMAL CONDITIONS, 
and TO PREPARE AND ISSUE THE NEXT I/O COMMAND. 
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9,7.7 v'P’JITOP CALLS 


A OEC/X11 «ODULE COMMuMICATES WITH THE i».,,'TTnR VIA '’OHITOR CALLS, 
WHICH are COOED TRAP CALLS, EXISTING MONITOR CALLS AREl 

EXIT CALLi shown IN LISTING AS EXIT. (RETURN TO MflNITOR, 

THE EXIT CALL IS USED BY THE MODULE TO RETURN CONTROL TO THE “ONITOP. 
IT IS GIVEN AETER AN I/O COMMAND HAS BEEN GIVEN AND THE MODULE HAS 
NOTHING TO DO BUT WAIT FOR AN INTERRUPT. 

ERROR CALLi SHOWN IN LISTING AS ERROR, .BEGIN (REASON EOP CALL, 

USED BY MODULE TO REPORT AN ERROR OTHER THAN A DATA ERROR, 

extended error CALLi SHOWN IN LISTING AS ERRN ADR , BEGIN (hEASON 
USED TO OUTPUT ADDITIONAL ERROR DATA. 

DATERP CALLi shown in LISTING AS DATER, .BEGIN (DATA ERROR, 

USED TO REPORT A DATA ERROR, 

MSGN CALLi shown IN LISTING AS HSGN, . ADR . BEGIN .USED BY MODULE TO 
OUTPUT ASCII MESSAGES, 

ENDPA8 CALLi SHOwN IN LISTING AS ENDPS, . ADDR. BEGIN (END OF PASS, 
WHEREl 

ADDR IS ADDRESS TO START NEXT PASS, 

BEGIN IS MODULE ADDRESS. 

USED BY MODULE TO INDICATE END OE PASS. 

END CALLI SHOWN IN LISTING AS END, .BEGIN iREASON FOR END CALL, 

USED BY MODULE TO REQUEST THAT MODULE BE DROPPED FROM EXECUTION DUE 
TO AN ABNORMAL CONDITION. 

THE USE OF THE ABOVE MONITOR CALLS IS FURTHER DESCRIBED IN SECTION 3 
OF MAlNDEC-il-DXOBA DEC/Xll CONFIGURATION AND PROGRAMMING MANUAL. 
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9. SPECIAL MODIFICATIONS 


9,1 FIXING WRITE BUFFER ADDRESS 


IN SYSTEMS WHERE WRITE BUFFER ROTATION HAS BEEN ENABLED cPHINTOUTJ. 
ROTATION MAY BE INHIBITED BY ZEROING BYTE LOCATION "ROTI" IN THE MnNITOF, 
ADDITIONALLY, IF THE USER WANTS TO SET THE WRITE BUFFER ADDRESS TO A 
SPECIFIC VALUE HE MAY DO SO BY CHANCING THE CONTENTS OF LOC 56 (WORD). 

THE VALUE MUST BE EVEN, AND WITHIN THE RANGE SPECIFIED BY THE "WRITE 
buffer rotation ENABLED" PRINTOUT. 

9.2 modifying module LOC "OVlDl" 


MODULE LOCATION "DVIDl" MAY BE CHANGED TO OTHER THAN ITS USUAL VALUE 
BY MEANS OF THE "MOD" COMMAND IN ORDER TO RUN LESS THAN A FULL COMPLEMENT 
OF DEVICES. EXAMPLEI 

module XTCAAA has BEEN CONFIGURED FOP B DRIVES, LOC DVlDl THEREFORE. 
CONTAINS the VALUE 000377, TO RuN THE MODULE WITH ONLY DRIVES 0 AND 1. 
CHANGE THE VALUE IN DVIDl TO 000003, 

9,3 halt AFTER 20 ERRORS 


THE MONITOR NORMALLY WILL DROP A MODULE AFTER 20 ERRORS UNLESS PREVENTED 
BY SR14, THE NUMBER MAY BE INCREASED OR DECREASED BY CHANGING LOCATION 
"ERRLIM" by means of THE "MOD" COMMAND. 

9,4 HARD HALT ON ERROR 


TO HALT PROCESSOR UPON ERROR OR DATA ERROR, PLACE A HALT IN MONITOR 
LOCATION "TYPQ2,". 

9,5 hard HALT ON ERROR TRAP 


TO HALT ON ERROR TRAP INSTEAD OF TYPING. "SYS ERROR" MESSAGE, CHANGE 
contents of LOC4 TO 6, 6 TO 0, lo TO 12. AND 12 TO o, USEFUL WHEN 
user WISHES TO EXAMINE CONTENTS OF STACK WHEN ERROR TRAP OCCURS, 
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10, DEPnGGTfG AIDS 


PPOBl.E^' 1. MODULE X FAILS. FIVE OTHER MODULES pitMNTMG AT Tiwp THAT 

FAILURE OCCURS, 

PROCEDUREI RUN MODULE X ALONE, IF FAILURE REOCCURS, ISOLATE PROBLEM 

WITH MODULE X, OB USE DEVICE/OPTION DIAGNOSTIC. IF 

problem does not show, add modules until the PPOPLFL 
REOCCURS. GOALi CAUSE FAILURE TO OCCUR WITH mimI"UM 
number of MODULES. 

COMMENT! CERTAIN COMBINATIONS OF HARDWARE MAY NOT 
PUN SUCCESSFULLY AT THE SAME TIME, 

problem 2. MODULE X HAS NOT PRINTED ENDPAS PRINTOUT, OP ANY OTHEF 

printout SINCE THE PUN STARTED, IS IT PUNNING? 

PROCEDUPF, make sure THAT MODULE IS SELECTED CCHECK PUN SUMMARY). 

IF SELECTED, SET HALTS , ONE AT A TIME, IN THE MODULE 

CODE, AMD RUN. THE INTENT IS TO TRACE EXECUTION OF 

THE MODULE CODE UNTIL REASON FOR MODULE HANGUP IS EDUND, 

problem 3. BACKGROUND MODULE Y HAS NOT PRINTED ENDPAS PRINTOUT 

SINCE RUN STARTED. 

PROCEDURE, make SuRE MODULE IS SELECTED. CLOOK AT RtjN SUMMARY). 

BACKGROUND MODULES ARE RUN ONE AT A TIME. DEPENDING 
ON number of OTHER BACKGROUND MODULES PRESENT, ITS 
TURN MAY not HAVE COME YET, ALSO, BACKGROUND MODULES 
APE serviced at A LOWER PRIORITY THAN I/O MODULES. 

THE NUMBER OF I/O MODULES ACTIVE WILL AFFECT SPEED OF 
EXECUTION OF background MODULES. 

problem 4. PROCESSOR HALTS IN VECTOR AREA C60-774) 

PROCEDURE. RUN EACH MODULE ALONE UNTIL FAILURE REOCCURS. CHECK THE 

OFFENDING MODULE'S DEVICE'S INTERRUPT CARD FOR 
CORRECT VECTOR. EITHER THE DEVICE OR THE MODULE has 
AN INCORRECT VECTOR SPECIFIED, 
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APPENDIX A, MODULE INTERFACE SAMPLE 


lOMOD <SAMPL >,12345S»20e,7,6 
MODULE 140000, SAMPL ,123456,200,7,6 
.TITLE SAMPL 



BEGIN! 



MODNAMi 

.ASCII 

/SAMPL / 

!M0DULE NAME, 

AODRI 

1234S6«0 

!1ST DEVICE ADDP, 

VECTOR! 

200*0 


!1St device vector. 

BRl! 

.BYTE 

PRTY7+0 

1 1ST BR LEVEL, 

BR2l 

.BYTE 

PRTY6*0 

|2ND BR LEVEL, 

OVlDl 1 

1 


idevicc indicator 1. 

SPlI 

Open 


iswiTCH register I 

STATi 

140000 


iSTAtus Word. 

TNITl 

START 


IMODULE start ADDR, 

SPOINTi 

MODS? 


iMOdULE stack POINTER, 

PASCNT! 

p 


IPASS counter, 

EBRCNTI 

0 


lERROB COUNTER, 

SVRoi 

Open 


ILOC TO save RO, 

SVPlI 

OPEN 


iLOC TO SAVE Rl. 

SVP2I 

OPEN 


iLOC TO SAVE R2. 

SVR3I 

OPEN 


ILOC TO SAVE R3. 

5VR4! 

OPEN 


ILOC TO SAVE R4, 

SVB5I 

OPEN 


ILOC TO SAVE B5, 

SVP6! 

OPEN 


iLOC TO SAVE RB. 

CSPAl 

OPEN 


lADDP OF current CSR. 

SBADRi 



lADDR OF GOOD DATA. Op 

ACSR! 

OPEN 


iCONTENTS of CSR, 

WASADBl 



!ADDB of BAD DATA, OR 

ASTATi 

OPEN 


iSTATUS REG CONTENTS. 

ASBi 

OPEN 


iEXPECTED DATA, 

AWASi 

OPEN 


lACTUAL data. 


,REPT 

SPSIZ 

iMODULE STACK STARTS HFRF. 


.NLIST 




.WORD 

0 



.LIST 




.ENDR 



MODS?! 





! 

.REV I 
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SECTION 2 • 

« 

UC15 MONITOR tUNIMON) DIFFERENCES * 

TABLE OF CONTENTS 


1, ABSTRACT 

2, requirements 

3, LOADING PROCEDURE 

4, starting procedure 

5, OPERATING PROCEDURE 

6, ERRORS 

7, NORMAL PRINTOUTS 

R. PROGRAM RESTRICTIONS 

APPENDIX A. SAMPLE LOAD AND STARTUP PROCEDURE 
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1 , ABSTRACT 


THIS SECTION DOCUMENTS THE DIFFERENCES BETWEEN THE DEC/Xll STAMDAWP 
monitor MAINDEC-II-DXQAB, and THE SPECIALIZED VERSION FOr THE UC15i 
MAINOEC-II-DXQAC. 

IN THE UCIS SYSTEM THE PDP-11 DOES NOT HAVE A CONSOLE DEVICE. 

UNIMON PASSES ALL ITS TTY MESSAGES TO THE PDP-15 PROCESSOR 

Console device (via the pdp-is system exerciser module ttyid. 

BECAUSE THERE IS NO CONSOLE DEVICE ON THE PDP-ll. NO KEYBOARD 
COMMANDS ARC USED TO CONTROL THE DEC/Xll EXERCISER. THE PDP-11 
SWITCH register is USED IN PLACE OF THF KEYBOARD COMMANDS. 
ADDITIONAL DIFFERENCES AREl 

A, UNIMON DOCS NOT PERMIT CHAINING 

B, THE MOD (MODIFY) COMMAND IS NOT IMPLEMENTED 

C, SYS ERROR PRINTOUTS ARE REPLACED By THE PROCESSOR HALTING 

IN the trap area 

D, uNIHON'S write buffer (WHICH IS built BY THE 15'S TTyll 
MODULE AND MAY BE USED TO TEST 16 BIT NPR DEVICES) IS NOT 
ROTATED 
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7 , PFOUIPFMPINTS 

7.1 WAPDVAPE PF.QtnPE''fPTS 

2.1.1 PAPER TAPE CONriGURATION 
.bA“E AS CSXMON 

7.1.2 PECTAPE COMFIGURATIDN 
N/A TO UNI“ON 

2.1.3 PKll DISK CARTRIDGE CDMFIGUP AT I ON 
N/A TO UNIMON 

2.2 software requirements 

2.2.1 PAPER TAPE CONFIGURATION 
SA“E AS CSXMON 

2.2.2 DECTAPE configuration 
N/A TO UNIMON 

2.2.3 RKll DISK CARTRIDGE CONFIGURATION 
N/A TO UNIMON 
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3, LOADING PROCEDURE 

3.1 LOADING FROM PAPER TAPE 

LOAD the EXERCISER MODULE BY MEANS OF THE SPECIAL PDP-I 5 
ABSLtl LOADER 

3.2 LOADING FROM DECTAPE 

N/A TO UNIMON 

3.3 LOADING FROM RKll DISK CARTRIDGE 

N/A TO UNIMON 

4. STARTING PROCEDURE 


TO STARTi LOAD ADDP 0002(10 SET SWITCHES 8&q = ll TO OBTAIN CORE »AP 
press START 
PROGRAM WILL HALT 
PRESS CONTINUE 

PROGRAM WILL TYPE CDRfe MAP AND HALT 

SELECT/DESELECT APPROPRIATE MODULES C3EE SEC 5,1 BELOW 1 
AFTER ALL MQDULE HAVE BEEN SCLECTED/DESELECTED 
SET SWITCHES 849«00 PRESS CONTINUE 
program is now running selected modules. 

TO RESTART! LOAD ADDR OOlOOO AND PRESS START. 

IN EITHER A START OP RESTART, THE MONITOR TYPES THE EOLLOKINO 
MESSAGE! 

OEC/Xll EXERCISER 


THE POT r.) INDICATES THAT THE MONITOR IS READY TO ACCEPT OPERATOR 

commands from the switch register, 

NOTE! THE UNIMON DEC/XH EXERCISER ABSOLUTELY MUST NOT BF 
started Op restarted BEFORE THE PDP-15 EXERCISER HAS 
BEEN GIVEN THE EXECUTE tX) COMMAND AND TYPED THE 
MESSAGE TTYU 000001. AND TF THE UCl5 MODULES WILL PF 
PUN, THE message UC15 000001. THIS PROCEDURE IS NECESSARY 
TO SYNC UP both EXERCISERS AND MUST PE FOLI.OWfJD. 

NOTE! PDP15 AC SWITCHES 1-3 MUST BE nowN UNTIL ABOVE 
MESSAGES ARE TYPED, 



DXOAA.R UFC/X11 USEP ’A'-UAL •'ArYll.f>24 2.ALG-73 1513® PAGE 39 

XDCCl.PM SEfTT'jr. 7 - UC15 yn^ ITOP (’tM-nNl OIFFERENCFS 

s, npFPATiNG PPOCEDI'PF 


the UNIMON exerciser is CONTPOLLED by means or the PDP-11 SWITCH REGISTER (SRJ, 

5,1 SWITCH REGISTER OPTIONS AND CONTROL FUNCTIONS 


SWITCH REGISTER OPTIONS APPLY ONLY DURING EXECUTION OF THE EXERCISER. 

SRI 5 ■ 1 "HALT" MODULE AFTER ERROR. THE FAILING MODULE IS 

PREVENTED FROM FUTHER EXECUTION, NORMALLY, A "MODULE 
DROPPED" PRINTOUT PRECEDES HALTING OF THE MODULE. 

SR14 ■ 1 INHIBIT MODULE HALT AFTER 20 ERRORS, SR14 SET TO A I 

prevents the MONITOR FROM HALTING THE FAILING MODULE 
AFTER 20 ERRORS, IF SET TO A 0, SR14 WILL ENABLE THE 
MONITOR TO HALT THE MODULE AFTER THE 20TH ERROR, AFTER 
A "MODULE DROPPED" MESSAGE, 

SR13 ■ 1 INHIBIT ERROR PRINTOUTS, 

SR12 ■ 1 INHIBIT "END OF PASS" PRINTOUTS, 

SETTING THE SR TO 074000 INHIBITS ALL PRINTOUTS, AND PREVENTS MODULE 

HALTS, improving THE CHANCES OF PERFORMING SCOPING OPERATION 


THE CONTROL FUNCTIONS APEl 

SRIO a I ("CjTYPES RU" SUMMARY AND HALTS 

SR8 4 9 ■ 00 • RUN ALL SELECTED MODULES 

01 - SELECT MODULE SPECIFIED IN SR 7-0 TO BE RUN 
10 - DESELECT MDOULE SPECIFIED IN SR 7-0 FROM RUNNING 
U - map - TYPE AVAILABLE MODULES AND THEIR STATUS 

SR7 • 0 a TO SEQUENCE NUMBER OF DESIRED MODULE (NUMBER WHICH IS 

OUTPUT DURING HAP), HILL SEL OR DES THAT MODULE. 

WHEN EQUAL TO 0, ALL MODULES WILL BE SELECTED OR DESELECTED, 

NOTEi WHEN THE OPERATOR DESIRES TO ISSUE A "C TO UNIMON, HE MUST NOT 

FIRST ISSUE A “C TO THE PDP-15 SYSTEM EXERCISER As IT MUST CONTINUE 
TO RUN IN ORDER TO OUTPUT THE UHIMON MESSAGES, AFTER UNIMON OUTPUTS 
THE {,) THE FOP-15 EXERCISER MAY BE GIVEN THE "C. THE UMMON EXERCISER 
HILL HALT AFTER THE "C (PDP-11) COMMAND, IF THE OPERATOR DESIRES m 
CONTINUE THE EXERCISERS FROM THIS POINT WITHOUT RESTARTING UNIMON OR 
RELOADING THE PDP-15 MODULES, HE MUST ISSUE THE EXECUTE (X) COMMAND 
TO THE PDP-15 EXERCISER, WAIT UNTIL IT IS AGAIN RUNNING AND 
THEN AND ONLY THEN PRESS CONTINUE TO START THE UNIMON EXERCISER 
RUNNING AGAIN, THIS PROCEDURE IS NECESSARY TO KEEP THE TWO 
EXERCISERS RUNNING IN SYNC, AND IF IT IS NOT FOLLOWED, THE EXERCISERS 
WILL both HAVE TO BE RESTARTED FROM SCRATCH TO AGAIN SYNC THEM UP, 
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5,2 KEYBOARD COMMANDS 


N/A TO UNIMON 
5,2,1 THE "MAP" command 


SAME AS CSXMON EXCEPT THAT A MODULE NUMBER Is TYPED JUST 
BEFORE THE MODULE NAME, THE NUMBER IS USED WHEN IT IS NECESSARY 
TO REFER TO A MODULE VIA THE POP-11 SWITCH REGISTER, 

5.2.2 THE SEL(ECT) COMMAND 


LOAD MODULE NUMBER OBTAINED FROM MAP COMMAND INTO SRO-7 
SET switches 8»9a01 AND PRESS CONTINUE 
IF YOU DESIRE TO SELECT ALL MODULES 
SET SRO-7 ao, SR a49a01 AND PRESS CONT. 


5,2,3 THE DES (ELECT) COMMAND 


LOAD MODULE NUMBER OBTAINED FROM MAP COMMAND INTO SRO-7 
SET switches 8S9alO AND PRESS CONTINUE 
IF YOU DESIRE TO DELECT ALL MOOULES 
SET SP0-7a0, SR 849 bio AND PRESS CONTINUE 


5.2.4 the MOD(IFY) COMMAND 

N/A TO UNIMON 

5.2.5 THF "RUN" COMMAND 

SA-E AS CSXMON EXCEPT THAT RUN IS INDICATED VIA SWITCH REG, 

5.2.6 PNOING EXERCISER "RUN" 


SET SP lOsl 
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5,2.'’ UA^DEIA'G of power FAILUPF 

SAFE AS CSX^!ON 

5,7,8 "CRAIN" OPEBATTOM OF DEC/Xtl 

N/A TO UNIMOM 

6, ERRORS 

6.1 SYSTEM FRROP 

fjMMON HALTS IN THE TRAP AREA UPON DETECTING A SYSTE« ERROR, 

6.2 THE ERROR PRINTOUT 
SAME AS CSXMON 

6.3 THE "DATA ERROR" PRINTOUT 

SANE AS CSXMON 

7, NORMAL PRINTOUTS 

7.1 "ENDPAS" PRINTOUT 

SAME AS CSXMON EXCEPT THAT CHAIN MODE IS N/A TO UMMON 

7.2 THE "DROPPED" PRINTOUT 
SAME AS CSXMON 

7.3 "RUN summary" PRINTOUT 


SA“E AS CSXMON 
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7.4 THE "ROTATION ENABLED" PRINTOUT 

N/A TO UNIMON 

7.5 "PWR FAILURE" PRINTOUT 

PWR FAILURE 
same as CSXMON 

8,n PROGRAM RESTRICTIONS 


PDP15 SYSTEM EXERCISER MODULES SHOULD NOT BE LOCATED 
ABOVEl 

n 24K FOR 4K PDPll LOCAL MEMORY 

23 20K For ok PDPll Local mfmqry 

PDP15 AC SWITCHES 1-3 SHOULD BE DOWN uNtIL 
TTY PUN statement AND 
UC15 RUN STATEMENT (IF LOADED) IS 
TYPED 
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APPENDIX A SAMPLE LOAD AND PUN PROCEDURE 


loaded the DECXJl PROGRAM IN THE PDP-11 USING THE ABSLll 
loader. I THEN LOADED AND STARTED SYSTST IN THE POP-IS. 

SY5T5T VID 
8L 

•SYSTEM LOADER V2B 

MEMSIZE type 8K, 12K, 16K,20K,24K,2BK,nR 32Ki 1«K 

title 01 DECTAP 

title 02 rP15T2 

TITLE OJ EAEPT2 

TITLE 04 XRLR 

title 05 TTYll 

title 06 UC15 

TITLE 07 

DECtAP 0)1247 
rpi5T2 02)057 
XR/LP 020064 
TTYll 01522) 

UC15 0)00)1 
EAEPT2 014275 


SYSTST VID 

IP 

•PARAMETER MODE 

01 DECTAP 600004 000000 000000 000000 400000 

02 EP15T2 *C 

SYSTST VID 

IX 

•operating system V3B 
API ON 

TTYll 000001 
0C15 000001 
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started DECXII in the PDP-11 at 200 WITH SWITCHES 6 AND 9 
SET TO obtain the CORE MAP SHOWN BELOW, 


DEC/Xll EXERCISER 

THE processor STOppED AND I PRESSED CONTINUE 

OOOOOl XUCAAA AT 007504 STAT 040020 
000002 XPKAAA AT 011102 STAT 140000 
000003 XLPAAA AT 012162 STAT 140000 
000004 XCPAAA AT 012716 STAT 140000 

THE PROCESSER stopped AFTER TYPING THE MODULES LOADED BY DECXII 
SHOWN ABOVE, 

DELETED MODULE iStXLPAAA) BY SETTING SWITCHES 8 AND 9«10 AND 
SWITCHES 0-7«3 AND PRESSING CONTINUE 

THEN deleted module »4(xRKAAA) USING THE ABOyE SEQUENCE I 
THEN deleted module lltXCRAAA) 

THEN REQUESTED ANOTHER COPE MAP, NOTE THAT THE STATUS WORD 
FOR MODULES 2, 3, 2ND 4 BIT *14 IS 0 INDICATING THAT THE MODULE 
HAS been deselected, 

000001 XUCAAA AT 007504 STAT 040020 
000002 XRKAAA AT 011102 STAT 100000 
000003 XLPAAA AT 0l2l62 STAT 100000 
000004 XCRAAA AT 012716 STAT 100000 

THEN SET all SWITCHESrO AND PRESSED CONTINUE TO START THE MODULE 

running. 

DECTAP DONE 
UC15 DONE 

XUCAAA PC 010720 APC 001214 ENDPAS 00001. 


E 


FP15T2 DONE 



DX(^Ai-R 
XDHCI .Pll 


? EHROPS 


[)X(5AA.B 
XDOC1 .Pll 


DEC/XH USEP "AEUAL «Ary11.6J4 J-nvC-ll 15l3P 

SY“BPL table 

Of'Of'OPR 

ooooon 

DETECTEDI 1 
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page 44-1 


PAGE 44.2 


*, xnnr 1 .ppt-xoqci , pi i 
run-time I 5 9 0 SEC nuns 
CURE USED! 3E 
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IDENTiriCATION 


PRODUCT CODEi 
PRODUCT NAMEi 
OATE l 

MAINTATNERI 

AUTHOR(S)| 
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65 .LIST SEO 

67 .TITLE XOACB UNIMON . DEC/Xll UC 1 5 MONITOR 

72 000000 .ASECT 

73 .LIST ME 

74 .NLIST TOC,MC,CND 

75 

76 .GLOBL LOCORE,HICORE,EABITS,wBUr,OACNv,RDCNv,MODO 

77 I SWITCH REGISTER OPTIONS 

78 fSR15>l HALT NODULE AFTER ERROR. 

79 lSRl4ai INHIBIT MODULE HALT AFTER 20 ERRORS, 

80 fSRtlal INHIBIT ERROR PRINT, 

81 ISRII-I INHIBIT ENDPAS PRINTOUT. 

82 iSRllal LOCK ON ERROR SEQUENCE 

84 l•••••*a•••*••••START OF UNIMON SPECIAL CODE**************' 

85 iSRlOa CTRLC (*C) 

86 |SR8(9a 00 RUN 

87 f 01 SEL (SEE SRT-0 BELOW) 

88 I 10 OES (SEE SRT>0 BELOW) 

89 I 11 MAP 

90 |SR7*0a WILL SEL OR DES THE NUMBERED MODULE. 

91 t WHEN EQUAL TO 0, ALL MODULES WILL 

42 I BE SELECTED OR DESELECTED, 

93 t***************END OP UNIMON SPECIAL CODE****************' 

95 


96 


lA FEW 

DEFINITIONS 

97 

000000 

RO 

a%0 

98 

000001 

R1 

a%l 

99 

000002 

P2 

at2 

100 

000003 

P3 

a%3 

101 

000004 

R4 

*%4 

102 

000005 

R5 

a%5 

103 

000006 

R6 

a%6 

104 

000006 

SP 

a%6 

105 

000007 

PC 

a%7 

106 

177776 

PS 

*177776 

107 

177776 

PSWa 

177776 

108 

177570 

SR 

*177570 

109 

000004 

PIRQ 

alOT 

no 

000000 

OPEN 

*0 

1 1 1 

100000 

BIT15 

alOOOOO 

112 

040000 

B1T14 

*40000 

113 

020000 

BIT13 

*20000 

114 

010000 

BIT12 

*10000 

115 

004000 

BITll 

•4000 

116 

002000 

BITIO 

*2000 

117 

001000 

BIT9 

*1000 

118 

000400 

BITS 

*400 

119 

000200 

BIT7 

*200 

120 

000100 

BIT6 

*100 

121 

0000*0 

BITS 

*40 

122 

000020 

PIT4 

*20 

123 

OOOOlO 

BITS 

*10 

124 

000004 

BIT2 

*4 



XQICB 


. '^fr/xn '^c(5 ‘■•oMT'^w 

’•ACYl 1.624 3- 

AUG-73 09J49 PAGF 2-1 

DCX'^.nr; 

PI 1 




125 


nono'’2 

PITl 

*2 

126 


nnnoni 

PITO 

»1 

127 


000340 

PRTY7 

■ 340 

12B 


000300 

PPTY6 

s300 

129 


000240 

PRTY5 

■ 240 

1 30 


00O2OO 

PPTy4 

■ 200 

131 


005746 

PUSH 

■005746 

132 


024646 

PUSH2 

■024646 

133 


005726 

POPS? 

■005726 

134 


022626 

P0PSP2 

■022626 

135 


000100 

tE 

■ BITS 

1 36 


000040 

KBUFL 

■32. 

138 


000310 

lOQL 

■200. 

139 


000310 

TYPOL 

■200. 

145 


007754 

TYPLIM 

■TYPEO*TYPOL 

146 


007444 

lOQLlM 

■ino*iooL 

147 


00561 1 

ACBLF 

■CTRLC*2 

148 


000020 

ST*T 

■16. 

149 


000021 

STATl 

«17. 

150 


000022 

INIT 

■ IB. 

151 


000024 

SPOINT 

■ 20, 

152 


000026 

PSCNT 

■22, 

153 


000030 

CBCNT 

■34. 

154 


000032 

8VP0 

■26. 

155 


000034 

SVPl 

■2f . 

156 


000036 

SVP2 

■ 30. 

157 


000040 

SVPJ 

■32. 

158 


000042 

8VR4 

■ 34. 

159 


000044 

SVP5 

■ 36. 

160 


000046 

SVP6 

■ 38, 

1*1 


000050 

CSPA 

■ 40. 

162 


000052 

ACSR 

■42. 

163 


000052 

S6ADR 

■ 42. 

164 


000054 

ASTAT 

■44. 

165 


000054 

HA8ADR 

■44. 

166 


000056 

A SB 

■46. 

167 


000060 

AWAS 

■ 48. 

168 



.MACR 

TORN STRING, ADDRESS 

169 



.ASCII 

*'STRING*% 

170 



.NLIST 


171 



.BYTE 

0 

172 



,BYTE 

,61>Ul43 

173 



.EVEN 


174 



.LIST 


175 



.WORD 

ADDRESS 

176 



.ENDM 


177 



.MACRO 

TRPDEF NAMEA, NAMES 

178 



names 

IPOINTER FOP TRAP CALL NAMEA 

179 



.NLIST 


180 



NAMEApTRAP+TRAPX 

181 



TBAPX«TRAPX+1 

182 



.LIST 


183 



.ENDM 


185 



.MACRO 

LINEl 


XQACB UNIMON . DEC/Xll MC 1 5 MONITOR 
DCXMON.Pll 

MACY11.624 3- 

AOG-73 

09149 PAGE 2-2 

186 


•■START 

OF UNIMON SPECIAL CODE******************** 

187 

,ENDM 



188 

.macro 

L1NE2 


189 


••END OF 

UNIMON SPECIAL CODE********************** 

190 

.ENDM 





XQACB '!VI"<n»? 
0CX,“'’N.P1 i 


ntr/Xi 1 


15 POMTOP 
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193 


nO'iO'iO 



.*0 



194 

OOOOOO 

OOOOOO 

nooooo 


,WOPO 

0,0 


196 

000004 

000006 

OOOOOO 

PUSEVI 

.42>HALT 


197 

000010 

000012 

nooooo 

PESIVI 

.♦2, HALT 


205 

000014 

003240 


TRCVl 

TRC: 


iTPACE TRAP POINTER. 

205 

000016 

OOOOOO 



0 



207 

000020 

003560 


lOTVI 

PIPQ. 


t 

208 

000022 

000340 



PPTy7 



209 

000024 

005436 


PWRFVl 

PWPDV 


iPOWER fail pointer. 

210 

000026 

000340 



PRTY7 



211 

O00030 

000032 


EHTVJ 

.+2 


jEHT POINTER 

212 

000032 

OOOOOO 



HALT 



213 

000034 

005306 


TRPVl 

TRPINT 


lIPAP pointer. 

214 

000036 

OOOOOO 



0 



215 


000040 



• ■40 



216 

00OO40 

OOOOOO 



, WpPD 

open 

iloao medium Indicator. 

217 

000042 

OOOOOO 


DDPPTRi 

.WORD 

0 

iCHAIN MODE ONLY. POINTS TO ODPMON, 

216 

000044 

OOOOOO 



.WORD 

0 


219 

000046 

OOOOOO 



,WORD 

0 


220 

000050 

OOOOOO 


LOCOREl 

OPEN 


IADDP or FIRST free core location. 

221 

O0O052 

OOOOOO 


HICOREi 

OPEN 


iCONTAINS ADDR OF HIGHEST BUFFER. 

222 

000054 

OOOOOO 


EABITSI 

OPEN 


iCONTAINS extended ADDR BITS. 

22 3 

000056 

001136 


WBori 

8T»RT 


fCONTAINS CURRENT WRITE BUFFER ADDR 

229 





ITROM 

HERE THROUGH 

776 FILLED WITH .*2 AND HALT. 

236 








237 








218 


000200 



.■200 



239 

000200 

000167 

000732 


jmp 

START 

lOO To START OF mqnIToR, 

240 








241 


001000 



.■1000 



242 

oolooo 

000167 

000132 


JmP 

START 

iGO TO START OF MONITOR, 


xqacr 

UNIMON • 

DEC/Xll UC15 MONITOR 

MACYll. 

624 3. 

AUC>73 

09149 

PACE 2«4 

OCXMON, 

,pii 







244 

001004 

000 

TOQUE > 

.BYTE 

OPEN 


lIOQUE AND TYPQUE MUST BE IN SAME WOPDIJ 

245 

O01005 

000 

TYPQUEl 

.BYTE 

OpEN 



246 

001006 

000 

SPCFlOi 

.BYTE 

open 


ISPCFLC AND DIRiND MUST BE IN SAME WORD) I 

247 

001007 

000 

DIRINDi 

.BYTE 

OPEN 



248 

001010 

000 

BKQUCi 

.BYTE 

OPEN 



249 

OOlOl 1 

000 

BRAKEl 

.BYTE 

OPEN 



250 

001012 

000 

RHODE 1 

.BYTE 

OPEN 



251 

001013 

000 

TTYBSYi 

.BYTE 

OPEN 


•TELETYPE BUSY FLAG. 0» NOT BUSY. 

252 

001014 

000 

MODCMTl 

.BYTE 

OPEN 



253 

001015 

000 

MODCTRl 

.BYTE 

OPEN 



254 

001016 

000 

ERRINDi 

.BYTE 

OPEN 


lO^ERROR, NOTOaDATA ERROR, 

255 

001017 

000 

FILCTRl 

.BYTE 

OPEN 



256 




.EVEN 




257 

001020 

OOOOOO 

KBPIRl 

OPEN 




258 

001022 

OOOOOO 

HODPIRl 

OPEN 



(MODULE POINTER 

259 

001024 

OOOOOO 

AODRl 

OPEN 




260 

001026 

OOOOOO 

NUMBER! 

OPEN 




261 

001030 

OOOOOO 

OSTADR^ 

OPEN 




262 

001032 

OOOOOO 

SRETRNi 

OPEN 




263 

001034 

OOOOOO 

lOBKlDi 

OPEN 




264 

001036 

OOOOOO 

TESi 

OPEN 




265 

001040 

OOOOOO 

TABADRi 

OPEN 




266 

001042 

OOOOOO 

RSTATl 

OPEN 




267 

001044 

OOOOOO 

TRCPCi 

OPEN 




268 

O01046 

OOOOOO 

TRCPSWt 

OPEN 




269 

001 050 

OOOOOO 

lOQli 

OPEN 



(1/0 QUEUE POINTERS, 

270 

001052 

OOOOOO 

I0Q2I 

OPEN 




271 

001054 

OOOOOO 

TYPQll 

OPEN 



(TYPE QUEUE POINTERS 

272 

001056 

OOOOOO 

TYP02I 

OPEN 




273 

001 060 

OOOOOO 

MONRO 1 

OPEN 



(MONITOR REGISTER SAVE AREA, 

274 

001062 

OOOOOO 

MONRll 

OPEN 




275 

001064 

OOOOOO 

M0NR2I 

OPEN 




276 

001066 

OOOOOO 

M0NR3I 

OPEN 




277 

001070 

OOOOOO 

M0NR4I 

OPEN 




278 

001072 

OOOOOO 

M0NR5I 

OPEN 




279 

001074 

OOOOOO 

SPSAVl 

OPEN 




280 

001076 

177560 

TKSI 

177S60 




281 

001100 

177562 

TKBl 

177562 




2»2 

001102 

177564 

TPSi 

177S64 




283 

001104 

177566 

TPBl 

177566 




284 

001106 

000024 

ERRLIMi 

20, 




285 

001110 

OOOOOO 

TTYBYTi 

OPEN 




286 

001112 

014 

FILCNTi 

.BYTE 

12. 



2R7 

001113 

000 

FILLERl 

.BYTE 

0 



288 

001114 

ooo 

SySERli 

.BYTE 

OPEN 


(SYSERI AND PWREI MUST BE IN SAME WORPJJl 

2«9 

001115 

000 

PWRFTl 

.BYTE 

OPEN 



290 

001116 

000 

CHN| 

.BYTE 

OPEN 



291 

001117 

000 

ROTIi 

.BYTE 

OPEN 


(ROTATE buffers INDICATOR, oa NO, 

292 

001120 

000 

FlLLIDi 

.BYTE 

OPEN 


(FILL INDICATOR, 

293 


001122 


.EVEN 




295 



f *#•#••< 


••START 


296 

001122 

167774 

DRIDBl i 

167774 


(BITS 

•49a LOCAL MEM StZ 

297 






lOl* 

4K LOCAL MEM 

298 






tio* 

IK LOCAL MEM 



XOACR - r.t:r/X11 'TIS ^ACyil,624 3-AUf^-'^3 091 49 PACK 2-5 

0CX''’'^N.P1 1 


299 

300 

001174 

160760 

DPCSR2 1 

I 67760 

lllx 12K LOCAL mk'M 

IBITO* TCBP TLG 

301 

ool 1?6 

1 60764 

DPIDB2I 

167764 

(CONTAINS BITS 3-17 OF TCBP 

302 
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305 




ICOPMON 

OUE CALL routine. 


306 

001130 

1 04401 


COMQUEl 

QUE 


(QUE CALL. 

307 

001132 

000000 


CADDPj 

OPEN 


(DESTINATION ADDR. 

30P 

001 134 

000000 


CSTARTI 

open 


(MODULE START ADOR. CO f OR wnNITOR 

309 








310 

001136 

000005 


STAPTI 

RESET 


(CLEAR THE WORLD. 

311 

001140 

012706 

007134 


MOV 

tSPBOT,R6 

(SET UP STACK. 

312 

00*144 

012767 

005436 176652 


MOV 

•pwRDN, pwprv 

(SET UP power FAIL VECTOR, 

313 

001152 

005767 

176672 


TST 

LOCOPE 

(DONE BUFFER SETUP? 

314 

001156 

001002 



BNE 

4S 

(BR IF YES. 

315 

001 160 

00476’ 

005750 


JSP 

PC,SETBUE 

(NO, DO IT, 

317 






(START or UNIMON SPECIAL CODE******************* » 

318 

001 164 

004767 

004002 

411 

JSP 

PC,CLB0US 

(CLEAR QUEUES, 

319 

001170 

105777 

177730 

511 

T8TB 

PDRCSR2 

(TCBP FLG SETT 

320 

001174 

100375 



BPL 

5$ 

(BP IF NO. 

321 

001176 

017701 

177724 


MOV 

PDPIDB2,Pl 

(SYNC UP. 

322 

001202 

105777 

177716 

6| 1 

TSTB 

BDPCSR3 

(FLG SETT 

323 

001206 

100375 



BPL 

6$ 

(BR IF NOT. CWAIT FOR IT) , 

324 

001210 

017701 

177706 


MOV 

PDPIDBl ,Pl 

(DETERMINE 

325 

001214 

006101 



POL 

PI 

(EXACT 

326 

001216 

006101 



POL 

PI 

(AMOUNT 

327 

001220 

006101 



POL 

PI 

(OF 

328 

001222 

006101 



POL 

PI 

(LOCAL 

329 

001224 

006101 



POL 

PI 


330 

001226 

042701 

1 17777 


BIC 

•117777, Rl 

(MEMORY 

331 

001232 

067701 

177670 


ADO 

PDRIDB2,Pl 

(ADDR OF WBUF FDR moDULFS, 

332 

001236 

010167 

176614 


MOV 

Rl,WBUr 

t 

333 

001242 

162701 

000002 


SUB 

• 2, PI 

(LOC TPB CONTAINS ADDR OF TTY BUFF 

334 

001246 

010167 

177632 


MOV 

P1,TPB 

f 

335 

001252 

104406 

005542 


MSG, TITLE 

(TYPE TITLE, 

336 

001256 

104406 

005566 


MSG, DOT 


(TYPE DOT. 

337 

001262 

005767 

176302 


TST 

SP 

(SR ■ OT 

338 

001266 

001002 



BNE 

INPUT 

(BR IF NOT, 

339 

001270 

000167 

002674 


JMP 

RUN 

(YES. START PUN MODE. 

340 








341 

001274 

012706 

007134 

TNPUTI 

MOV 

•SPBOT,P6 

(RESET STACK, 

342 

001300 

005067 

177610 


CLP 

STSERI 

(CLEAR SYSERI AMD PWHFI INDICATORS 

343 

001304 

000000 



HALT 


1 

344 

001306 

016700 

176256 


MOV 

SP,R0 

» 

345 

001312 

042700 

176377 


BIC 

•176377, RO 

f 

346 

001316 

005700 



TST 

RO 

(RUN selected? 

347 

001320 

001002 



BNE 

1$ 

(BR IF NO, 

348 

001322 

000117 

004170 


JMP 

P«PUN 

t 

349 

001326 

022700 

000400 

111 

CMP 

•400>PO 

(8EL SELECTED? 

350 

001332 

001002 



BNE 

2t 

(BR IF NO. 

351 

001334 

000137 

004512 


JMP 

P«SEL 

» 

352 

O01340 

022700 

001000 

2ti 

CMP 

•looo»Ro 

(DE5 SELECTED? 

353 

001344 

001002 



BNE 

3t 

(BP IF NO. 

354 

001346 

000137 

004530 


JMP 

P»DE8 

1 

355 

001352 

000137 

004326 

3ti 

JMP 

PiMAP 

(MAP SELECTED, 

356 

001356 

005067 

176414 

QUETSTI 

CLP 

PSH 

(CLEAR STATUS, 

357 

001362 

105767 

177416 


TSTB 

lOQUE 

(ib QUE REQUEST PENDING? 

358 






(END or UNIMON 


380 

001366 

001112 



BNE 

I008VC 

(BR IF YES. 
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304 

'’01370 

005767 

177440 


TST 

lOBKID 

iSTARTING I/O MODULES? 


001 374 

100415 



BM! 

QTSTC 

IBP ir YES. 

3«6 

001 376 

1 05767 

177403 


TSTB 

TyPQUE 

iTYPE REQUEST PENDING? 

3fl7 

001402 

001 405 



BEO 

QTSTB 

IBR IP NOT. 

398 

001404 

1 05767 

177403 


TSTB 

TTYBSY 

iTTY BUSY? 

3fl9 

001410 

O010O2 



PNE 

OTSTB 

iBR IP YES. 

3<»0 

001412 

000167 

000414 


JMP 

TYPSVC 

jNO, GO SERVICE TYPE QUEUE. 

107 




t 



393 

001416 

004767 

003504 

QTSTRl 

JSR 

PC.SPIOCK 

jCHECK POP SRlO (CTRLC), 

394 

001422 

005767 

177416 


TST 

TBCPC 

IBACRGROUND MODULE PENDING? 

395 

001426 

001166 



BKE 

BKOSVC 

iBR IP YES, 

396 

001430 

105767 

177356 

QTSTCl 

TSTB 

RHODE 

lIM RUN MODE? 

397 

001434 

001750 



SCO 

QUETST 

iBR IP NOT. 

398 






••END OP UNIMON 



XQACP 

UNIMQN • 

DEC/Xll 

UC15 MONITOR 

MACYll . 

624 3 

.AUC-73 09149 PAGE 2-8 

OCXMON 
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407 





(RUN MODE SERVICE ROUTINE, 


408 

001436 

105767 

177347 


RUNSVCl 

TSTB 

BRAKE 

(IS THE BRAKE ON? 

409 

001442 

001345 




BNE 

OUETST 

iBR IP YES, DO NOT INIT MORE MOD 

410 

001444 

105767 

177345 



TSTB 

MODCTR 

(MODCTR *07 

411 

001450 

001003 




BNE 

41 

iBR IP NOT. 

412 

001452 

105767 

177440 



TSTB 

CHN 

lYES, ARE WE IN CHAIN MODE? 

413 

001456 

001337 




BNE 

OUETST 

iBR IP YES, DO NO MORE, 

414 

001460 

010046 



4(i 

MOV 

BOf-I6) 

(SAVE RO. 

415 

001462 

062767 

000002 

177332 


ADD 

f2»MODPTR 

(POINT TO NEXT MODULE, 

416 

001470 

017700 

177326 



MOV 

*MODPTR,Ro 

(MODULE ADDR TO RO. 

417 

001474 

001427 




BEO 

IS 

(BR IP NO ADDR, 

418 

001476 

026067 

000020 

177330 


CMP 

STAT(0)«IOBXIO 

(CORRECT MODULE TO BUN? 

419 

001504 

001041 




BNE 

3S 


420 

001506 

005760 

000020 



1ST 

BTAT(O) 

(BACKGROUND MODULE? 

421 

001512 

100403 




BHI 

21 

(BR IP NOT, 

422 

001514 

112767 

177777 

177267 


MOVB 

BRAKE 

(YES. APPLY BRAKE. 

423 

001522 

OI 6 O 60 

000024 

000046 

2ii 

MOV 

SPOINT(0)>SVR6 

(0) (SET UP MODULE SP POINTER. 

424 

001530 

016067 

000022 

177374 


MOV 

INIT(0)»CADDR 

(SET UP DESTINATION ADDR, 

425 

001536 

010067 

177372 



MOV 

RO.CBTART 

(SET UP MODULE START ADDR, 

426 

001542 

012600 




MOV 

(6}4>R0 

(RESTORE RO, 

427 

001544 

105367 

177245 



DECB 

MODCTR 

(DECR COUNT OP MODS INITED. 

428 

001550 

000167 

177354 



JMP 

COMOUE 

(GO TO COMMON CUE CALL. 

429 

001554 

022767 

040000 

177252 

111 

CMP 

940000* lOBKID 

(IS IT NON TRACE BACKGROUND? 

430 

001562 

001004 




BNE 

99 

(BR IP NOT. 

431 

001564 

012767 

140000 

177242 


MOV 

9l40000*tOBKID 

(YES. SWITCH TO lOMOD, 

432 

001572 

000403 




BR 

6 S 


433 

001574 

012767 

040020 

177232 

StI 

MOV 

940020* IOBKID 

(SWITCH TO BACKGROUND MODE. 

434 

001602 

012767 

006422 

177212 

611 

MOV 

SMODQaEfMODPTR 

(POINT TO MODULE TABLE START. 

435 

001610 

012600 



3li 

MOV 

(634.ro 

(RESTORE RO. 

436 

001612 

OOO 661 




BR 

OUETST 




yQACP 
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43g 





ii/n Off 

SERVICE routine. 


4 39 

'>01614 

"26777 

>77232 

"07444 

Tnosvc 1 

CMp 

tOQ2,»IO(3LI« 

(REACHED limit OF QUEUE? 

440 

"01622 

103403 




PLO 

IS 

IBR IF HOT. 

441 

001624 

012767 

""7134 

177220 


«ov 

1100,1002 

(RESET 1002, 

442 

001632 

"12767 

"00340 

176136 

ISi 

MOV 

iPPTY7,PSK 

(SET priority 7, 

443 

001640 

017700 

1 772"6 



MOV 

91002, PO 

(GET PC. 

444 

001644 

062767 

O0O002 

177200 


ADO 

*2,1002 

(UPDATE 1002 . 

445 

001652 

105367 

177126 



DECB 

lOQUE 

(DECREMENT REQUEST COUNT. 

446 

001656 

005067 

176114 



CLR 

PSW 

(CLEAR STATUS, 

447 

001662 

012067 

177142 



MOV 

(0)+,DSTADR 

(GET destination ADDR, 

44R 

001666 

012000 




MOV 

(0)4, RO 

(GET module ADDR, IS IT "7 

449 

001670 

001002 




BNE 

2S 

(BR IF NOT. IT'S A MODULE. 

450 

001672 

000177 

177132 



JMP 

POSTADR 

(CO no MONITOR FUNCTION, 

45 1 
452 

001676 

1 16067 

000020 

177136 

2$l 

MQVB 

STATIC ),RSTAT 

(GET RUN status. 

453 

001704 

032760 

020000 

000020 

lOOSVAt 

BIT 

•BIT13, STATIC) 

(MODULE STOPPED? 

454 

001712 

"01221 




BNE 

QOCTST 

(BP IE YES. FORGET ITl 

455 

001714 

010067 

177140 



MOV 

RO,MONRC 

(SAVE Ro, IMODULE ADDR). 

456 

001 ’20 

010167 

177136 



MOV 

Rl,MONRi 

(SAVE MONITOR REGS, 

457 

001 724 

010267 

177134 



MOV 

R2,H0NR2 


458 

001730 

010367 

177132 



MOV 

R3,M0NR3 


459 

001734 

010467 

177130 



MOV 

R4<M0NR4 


460 

001740 

010567 

177126 



MOV 

R5<MONR5 


461 

001744 

010667 

177124 



MOV 

R6,SPSAy 

(SAVE MONITOR STACK TOOl, 

462 

001750 

062700 

000050 



ADD 

•SVR642,RC 

(RESTORE MODULE'S REGS. 

463 

001754 

014006 




MOV 

-tO),B6 

(STARTING WITH STACK POINTER, 

464 

001756 

014005 




MOV 

-(0),R5 


465 

001760 

014004 




MOV 

-10), R4 


466 

001762 

014003 




MOV 

-(0),R3 


467 

001764 

014002 




MOV 

•tO),R2 


468 

001766 

014001 




MOV 

-tO),Rl 


469 

OOl 770 

014000 




MOV 

•10), RC 


470 

001772 

016746 

177044 


lOQSVBi 

MOV 

RSTAT,-IS) 

(LOAD RUN STATUS. 

471 

001776 

016746 

177026 



MOV 

0STADH,-I6) 

(LOAD DESTINATION ADDR. 

472 

002002 

O00006 



RTTl 1 

RTT 


(GO TO DESTINATION. 

473 

474 





iBACKGROtINO 

QUEUE SERVICED HERE, 


475 

002004 

016767 

177034 

177016 

BKQSVCl 

MOV 

TRCPC,DSTADR 

'(SET UP DESTINATION ADDR. 

476 

002012 

1 16767 

177030 

177022 


MOVB 

TRCPSW.RSTAT 

(SET UP RUN STATUS. 

477 

002020 

017700 

1 76776 



MOV 

PMOOPTR,RO 

(MODULE start ADDR TO Ro ■ 

478 

002024 

005067 

177014 



CLP 

TRCPC 

(CLEAR BK MODULE WAITING INDICATOR 

479 

002030 

000725 




BR 

lOOSVA 

(GO GET GOING, 
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(TYPE QUE SERVICE ROUTINE, 


482 

002032 

026727 

177020 

007754 

TYPSVCI 

CMp 

typo2,»typlim 

(REACHED upper END OF QUEUE? 

483 

002040 

103403 




blo 

18 

(BR ir NOT, 

484 

002042 

0127*7 

007444 

177006 


MOV 

*TyPEQ,TYP02 

(YES, RESET TYP02, 

485 

002050 

105267 

176737 


1S> 

INCB 

ttybsy 

(INDICATE TTY BUSY. 

486 

002054 

017701 

176776 



MOV 

•TYPQa,Rl 

(GET PC OF CALL, 

487 

002060 

062767 

000002 

176770 


ADD 

•2.TyPQ2 

(UPDATE TYPQ2. 

488 

002066 

105367 

176713 



DECB 

TYPOUE 

(DECREMENT REQUEST COUNT, 

489 

002072 

010146 




MOV 

Rl,-(6) 

(SAVE PI . 

490 

002074 

005741 




TST 

-cn 

(POINT TO CALL, 

491 

002076 

010167 

176724 



MOV 

Rl, NUMBER 

(SAVE IT rOR LATER. 

492 

002102 

011101 




MOV 

(D.Rl 

(GET CALL 

493 

002104 

006301 




ASL 

Rl 

(TIMES 2. 

494 

O02106 

016101 

171110 



MOV 

TYPTAB-TRP2-4C1) ,Rl (FORM SERVICE ADDR, 

495 

002112 

000201 




RTS 

Rl 

(GO TO IT, RESTORE Rl , 

496 

002114 

003114 

003016 

002312 

TYPTABj 

.WORD 

PASEND,ENDSVC, 

EPRSVC.ERSVCl 


002122 

OO 2304 







497 

002124 

002222 

002256 

002274 


.WORD 

MSG,, BREAK., ER5vC2, MSGN. 


002132 

002134 







498 









409 





(MSGN. 

routine 

. services CALLS 

TO Type ascii messages. 

SCO 

002134 

012167 

176700 


M5GN. ( 

MOV 

(1)*,TABADR 

(GET ascii TABLE ADDR, 

5"! 

0021 4o 

012167 

176770 



MOV 

(1)*,CSTART 

(MODULE ADDR TO CSTART. 

5"2 

002144 

0101*7 

176762 



MOV 

Rl,CADDR 

(RESUME ADDR TO CADDR , 

5n3 

002150 

016701 

176760 



MOV 

CSTART,Rl 

(MODULE ADDR TO Rl. 

504 

002154 

004767 

000540 



JSR 

PC,ENDC0H 

(DO common STUFF. 

505 

0021*0 

032767 

020000 

175402 


BIT 

•BITl3,SP 

(INHIBIT ERROR PRINT? 

506 

002166 

001024 




BNE 

MSGl, 

(BR ir YES. 

507 

002170 

012746 

006123 



MOV 

•AEND,-(6) 

(TYPE COMMON HEADER, 

508 

002174 

004767 

001570 



JSR 

PC, TYPE 


509 

002200 

016701 

176634 



MOV 

TABA0R,R1 

(TABLE ADDR TO Pi . 

510 

002204 

012146 



111 

MOV 

(l)*,-(6) 

(GET message ADDR, 

511 

002206 

022716 

177777 



CMP 

•-1,(6) 

(TERMINATOR? 

512 

002212 

001412 




BEQ 

MSGl. 

(BR IF YES. done. 

513 

O02214 

004767 

001550 



JSR 

PC, TYPE 

(NO, TYPE message. 

514 

002220 

000771 




BR 

It 

(CO DO IT again. 

515 





(MSG CALL SERVICED HERE, 


516 

002222 

012146 



MSG.( 

MOV 

(l)*,-(6) 

(ASCII MESSAGE ADDR TO STACK, 

517 

O02224 

"10167 

176702 



MOV 

ri.caddr 

(RESUME ADDR TO CADDR, 

518 

002230 

005067 

176700 



CLP 

CSTART 

(INDICATE MONITOR QUE CALLING. 

519 

002234 

004767 

001530 



JSR 

PC, TYPE 

(CO TYPE DESIRED MESSAGE. 

520 

002240 

1050*7 

176547 


MSGl.l 

CLRB 

TTYBSY 


522 







••START or UNIMON SPECIAL CODE******************** 

523 

002244 

112777 

000377 

176632 


¥OVB 

»377,PTPB 


524 







*«END or UNIMON 


526 

002252 

0001*7 

176652 



JMP 

comque 

(CO QUEUE UP TO RESUME. 

528 





(BREAK 

routine 

. SERVICES BREAK 

CALL. 

529 

002256 

012167 

176652 


BREAK. ( 

MOV 

(1)+, CSTART 

(GET MODULE ADDR. 

530 

002262 

0101*7 

176644 



MOV 

ri.caddr 

(GET DESTINATION ADDR. 

532 








533 

0022*6 

"04767 

002634 



JSR 

PC,SR10CK 

(CHECK FOR *C, 

534 







**END or UNIMON 


536 

002272 

"0"762 




PR 

MSGl. 




KQICI' 


rtr/xi 1 

IIC15 ■■■rif 

TTOp 

XACVI 1 . 

624 3-, 
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DCXVniJ , 

,HU 








5 





lEPROP 

CALLS APE SERVICED HERE, 


519 

002274 

1 12767 

0C0002 

176514 

Epsve2j 

MOVB 

•2.ERRIND 

(INDICATE ErrORN CALL. 

540 

002302 

000406 




BP 

ERSVCA 


541 

002304 

105067 

1 765''6 


EPSVCl 1 

CLBB 

EPRIND 

(INDICATE DATA ERROR, 

542 

002310 

000403 




BR 

ERSVCA 


543 

O0231 2 

1 12767 

noOOOl 

176476 

EPRSVC « 

MOVB 

•IfCRRIND 

(INDICATE "NORMAL" ERROR. 

544 

O02320 

012167 

176610 


ERSVCAj 

MOV 

(1)4,CSTAPT 

(SAVE START ADDR OF MODULE. 

545 

002324 

122767 

000002 

176464 


CMPB 

82fERRTNO 

(ERRORN CALL? 

546 

002332 

001002 




BNE 

IS 

(BR IF NOT, 

547 

002334 

012167 

1 76500 



MOV 

f 1 )+*tabadr 

(SAVE TABLE ADDR, 

548 

002340 

010167 

1 76566 


18 1 

MOV 

Rl.CADDR 

(RESUME ADOR TO PSENDB. 

549 

002344 

016701 

176564 



MOV 

CSTART.Rl 

(GET BACK START ADDR. 

550 

002350 

004767 

000344 



JSB 

PC.ENDCDM 

(DO COMMON STUFF. 

551 

002354 

005261 

000030 



INC 

ERCNTtn 

(INCREMENT MODULE'S ERROR COUNT. 

552 

002360 

001002 




BNE 

ERSVCB 

(BR IF RESULT NOT 0. 

553 

002362 

005161 

000030 



COM 

EBCNT(l) 

(RESET count TO -1. 

554 

002366 

012702 

osooos 


EPSVCBt 

MOV 

• S>R2 

(GET TYPE DATA FROM quEUF TO STACK, 

555 

002372 

004767 

000356 


CPSVCCi 

JSR 

PC.TTPDAT 

(DO IT, 

556 

002376 

005302 




DEC 

R3 

(DONE? 

557 

002400 

001374 




BNE 

ER8VCC 

(BR IF NOT. 

558 

002402 

016146 

000030 



MOV 

EBCNT(l),-t6) 

(ERROR COUNT TO STACK, 

559 

002406 

004567 

002402 



JSR 

R5.BDCNV 

(CONVERT ERROR COUNT TO DECIMAL, 

560 

002412 

006406 




AERNMB 



561 

00241 4 

105767 

176376 



TSIB 

ERRIND 

(DATA ERROR? 

562 

O02420 

001020 




BNE 

7| 

(BR IF NOT, 

563 

002422 

004567 

002312 



J8II 

RS.OACMV 

(CONVERT WAS TO OCTAL, 

564 

002426 

006321 




AOTC3 



565 

002430 

004567 

002304 



JSM 

R5.0ACNV 

(CONVERT S/B TO OCTAL, 

566 

002434 

006306 




ADTC3 



567 

002436 

004567 

002276 



JSR 

R5.0ACNV 

(CONVERT WA5ADP TO OCTAL, 

568 

002442 

006354 




ADTE4 



569 

002444 

004567 

002270 



JSR 

R5»OACNV 

(CONVERT SBADR TO OCTAL, 

570 

002450 

006336 




ADTE5 



571 

002452 

004567 

002262 



JSR 

RS.OACMV 

(CONVERT CSP ADDR TO OCTAL. 

572 

002456 

006273 




ADTE6 



573 

002460 

000412 




BR 

68 


574 

002462 

022626 



781 

POPIP3 


(SKIP WAS AND SXB, 

575 

002464 

004567 

002250 



JSR 

R5.0ACMV 

(CONVERT STAT REG CONTENTS TO OCTAL 

576 

002470 

006254 




A8TATC 



577 

002472 

004567 

002242 



JSR 

RS.OACMV 

(CONVERT CSP CONTENTS TO OCTAL, 

578 

002476 

006237 




ACSRC 



579 

002500 

004587 

002234 



JSR 

RS.OACMV 

(CONVERT CSR ADDR TO OCTAL. 

580 

002504 

006223 




ACSRAC 



581 

002506 

032767 

020000 

175054 

681 

BIT 

8BIT13.SR 

(INHIBIT ERROR PRINT? 

582 

002514 

001054 




BNE 

It 

(BR IF YES. 

583 

002516 

012746 

006123 



MOV 

8AEND,-(6) 

(TYPE COMMON HEADER. 

584 

002522 

004767 

001242 



JSR 

PC.TTPE 


585 

002526 

012746 

006400 



MOV 

tERRNNB.-C6] 

(TYPE ERROR number. 

586 

O02532 

004767 

001232 



JSR 

PC.TTPE 


587 

002536 

105767 

176254 



TSTB 

ERRIND 

(DATA ERROR? 

588 

002542 

001003 




BNE 

4B 

(BR IF NOT. 

589 

002544 

012746 

006265 



MOV 

8ADTERR,«(S) 

(TYPE DATA ERROR MESSAGE. 

590 

002550 

000402 




BR 

SB 


591 

002552 

012746 

006215 


481 

MOV 

tAERROR.-(6} 

(TYPE ERROR MESSAGE. 


XQACB 

UNIMOM . 

DEC /X 11 

UC15 MONITOR 

MACYU,624 3. 

AU6-71 09149 PAGE 2-12 

DCXMON. 

PI 1 








592 

002556 

004767 

001206 


581 

JSR 

PC. TYPE 


593 

002562 

122767 

000002 

176226 


CMPB 

12. ERRIND 

(ERRORN CALL? 

594 

002570 

001026 




BNt 

IS 

(BR TF not. 

595 

002572 

016702 

176242 



MOV 

TABADR.R2 

(TABLE ADDR TO R2. 

596 

002576 

012703 

000010 


88? 

MOV 

86..R3 

(WILL TYPE 8 VALUES PER LINE, 

597 

002602 

022712 

177777 


981 

CMP 

8-1. (2) 

(TERMINATOR? 

508 

002606 

001417 




BEQ 

18 

(BR IF YES, DONE. 

599 

002610 

013246 




MOV 

P{2)4.-(6) 

(PUT VALUE IN STACK. 

60C 

002612 

004567 

002122 



JSR 

RS.OACMV 

(CONVERT IT TO OCTAL. 

601 

002616 

006111 




AOCTAL 



602 

002620 

012746 

006111 



MOV 

8AOCTAL.-(6] 

(TYPE IT, 

603 

002624 

004767 

001140 



JSR 

PC. TYPE 


604 

002630 

005303 




DEC 

RJ 

(DONE 6 PER LINE? 

605 

002632 

001363 




BNE 

91 

(BR IF NOT. 

606 

002634 

012746 

005611 



MOV 

tACRLr.-(6l 

(OUTPUT CRLF, 

607 

002640 

004767 

001124 



JSR 

PC. TYPE 


608 

O02644 

000754 




BR 

<8 

(GO FOR MORE. 

609 

002646 

012746 

005611 


181 

MOV 

tACRLr.-(6) 

(OUTPUT CRLF. 

610 

002652 

004767 

001112 



JSR 

PC. TYPE 


611 

002656 

105067 

176131 



CLRB 

TTYBSY 

(CLEAR TTY BUSY INDICATOR, 

613 






»*#••«* 

«*START or UNIMON 


614 

002662 

1 12777 

000377 

176214 


MOVB 

8J77.9TPB 


615 








617 

002670 

005767 

174674 



TST 

SR 

(HALT MODULE ON ERROR? 

618 

002674 

100410 




BMl 

28 

(BR IF YES. 

619 

00267b 

026761 

176204 

000030 


CMP 

ERRtIM.ERCNTtn 

(ERROR COUNT 20 OR GREATER? 

620 

002704 

003153 




BGT 

PSENOB 

(BR IF NOT. CONTINUE MODULE EXECUTION 

621 

002706 

032767 

040000 

174654 


BIT 

8BIT14.SR 

(YES, HALT MODULE AFTER 20 ERRORS? 

622 

002714 

001147 




BNE 

pbendb 

(BR IF NOT. GO DUE MODULE TO RESUME, 

623 

002716 

000442 



281 

BR 

CNDSVA 

(YES. GO HALT MODULE, 

625 

002720 

016746 

176102 


ENDCOMI 

MOV 

number. -(6) 

(SAVE Pc OF CALL. 

626 

002724 

011646 




MOV 

t6J.-(6) 

(SAVE IT again. 

627 

002726 

160116 




SUB 

Rl.(6) 

(COMPUTE ASSEMBLY PC. 

628 

002730 

004567 

002004 



JSR 

RS.OACMV 

(CONVERT assembly PC TO ASCII, 

629 

002734 

006153 




AEND2 



630 

002736 

004567 

001776 



JSR 

RS.OACMV 

(CONVERT PC TO ASCII. 

631 

002742 

006137 




AENDl 



632 

O02744 

004567 

001662 



JSR 

RS.FILLNM 

(LET'S GET MODULE NAME, 

63 3 

002750 

006124 




AEND*1 


(STUFF AT AEND*I. 

634 

002752 

000207 




RTS 

PC 

(LET'S GET OUT, 

636 





(TyPOAT 

SUB. LOADS QUEUED DATA 

ONTO STACK, 

637 

002754 

on 646 



TYPDATl 

MOV 

(6) .-(6) 

(SAVE EXIT ON STACK AGAIN, 

638 

002756 

026727 

1 76074 

007754 


CMP 

TYPQ2.8TYPL1M 

(REACHED END OF QUEUF? 

639 

002764 

1 03403 




BLO 

18 

(BR IF NOT. 

640 

002766 

012757 

007444 

176062 


MOV 

•TYPED. TYP02 

(YES, POINT TO START OF QUEUE, 

641 

002774 

017766 

1 76056 

000002 

1S( 

MOV 

(•TYPQ2.2t65 

(QUEUE DATA TO STACK. 

642 

003002 

062767 

000002 

1 7?>n46 


ADD 

•2.TYPQ2 

(UPDATE QUEUE POINTER, 

643 

'<0301 0 

1 05367 

175771 



DECS 

TyPOHE 

(DECREMENT COUNT. 

644 

O0301 4 

000207 




RTS 

PC 

(EXIT. LEAVE DATA IN STACK. 


645 



XQfiCP 


r tr /V 1 ' 

'Tib 

• TT"P 

''AC)f 1 1 . 
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,P1 1 









6 47 





iFMD CAM SERvI 

CED HERE. 



648 

"03016 

"111"! 



EM7SVC! 

MpV 

tn.Ri 


»get start AODR, 

649 

003020 

004767 

1 7 7 67 4 



JSB 

PCpKNDCOW 


IDG COMvn.^ STUFF, 

680 

003024 

"5276) 

020000 

000020 

ENOSVAi 

RIS 

iBlTl 3,STAT( 1) 


(SET STOP BIT IN MODULE STAT. 

681 

003032 

012746 

"06123 



«nv 

iAEMD,-(6) 


iTYPE COMwOfj header. 

682 

003036 

004767 

"00726 



JSP 

PC. TYPE 



683 

"03042 

012746 

00*163 



WOV 

•M0DEN0,-(6, 


iTYPE END MESSAGE. 

684 

"01046 

004767 

000716 



JSP 

PC. TYPE 



685 

003052 

105067 

1 75735 


ENDSVBt 

CLPB 

TTYBSY 


(CLEAR TTY BUSY INOICATCP. 

657 







•START OF UNIMON 


6Sfl 

003056 

1 1 2777 

"00377 

176020 


•^OVD 

i377.BTPB 



659 







•END OF UNIMON 


66 1 

O03064 

00576 1 

000020 


FMOSVEl 

TST 

STATtn 


(BACKGROUND module? 

662 

003070 

100402 




PMI 

It 


(PR IF NOT. 

663 

003072 

1 05067 

1 75713 



CLPB 

BRAKE 


(RELEASE BRAKE. 

664 

003076 

1 05367 

1 757 1 2 


IS 1 

DECS 

modcnt 


(DECP COUNT OF MODULES PUNNING. 

665 

"03102 

001002 




BNE 

FNDSVD 


(BP IF COUNT NOT 0. 

666 

003104 

000167 

"00546 



JMP 

CTRLCB 


(COUNT 0. terminate run ‘•'ODE. 

667 

668 

003110 

OO" 1 67 

1 76242 


ENDSVDl 

JMP 

QUETST 


(GO PACK TO SERVICE QUEUES. 

669 

670 





(PASENC 

pouttne 

. types end of 

PASS message. 

671 





(BACKGPOUND MODULES ABE NOT ALLOWED TO MAKE MULTIPLE PASSES. 

672 





lIN CHAIN MODE 

NO MODULE ALLOWED 

TO make MULTIPLE PASSES. 

673 

O03114 

0121*7 

176012 


PASENDl 

MOV 

(lU.CADDP 


(GET RESUME ADDP, 

674 

003120 

012101 




MOV 



(GET MODULE START ADDP. 

675 

003122 

010167 

1 76006 



MOV 

Rl.CSTABT 


(SAVE IT FOP LATFR OUE CALL. 

676 

"03126 

004767 

177566 



JSP 

PC.ENDCOM 


(DO common stuff. 

677 

003132 

0052*1 

000026 



INC 

PSCNTd) 


(INCREMENT PASS COUNT, 

678 

003136 

01*146 

000026 



MOV 

PSCMT(n.-f6) 


(NOW GET IT. 

679 

003142 

004567 

001646 



JSP 

rb.bdcnv 


(CONVERT IT TO DECIMAL ASCII, 

680 

003146 

006205 




BPSCNT 



(STUFF IT AT BPSCNT. 

681 

"03150 

032767 

OlOOOO 

174412 


BIT 

•BIT12.SP 


(INHIBIT ENDPAS PRINTOUT? 

682 

"03156 

001010 




BNE 

PSCNDA 


IBR IF YES. 

683 

003160 

012746 

006123 



MOV 

tAEND,>(6) 


(TYPE COMMON HEADER, 

684 

003164 

004767 

000600 



JSB 

PC. TYPE 



685 

003170 

012746 

006175 



MOV 

*APSEND.-(6) 


(TYPE ENDPAS AND PAS COUNT TOO. 

686 

003174 

004767 

000570 



JSP 

PC. TYPE 



687 

003200 

105067 

175607 


PSENDAi 

CLPB 

TTYBSY 


(CLEAR TTY BUSY INDICATOR. 

689 







•START OF UNIMON 


690 

003204 

1 12777 

000377 

175672 


MOVB 

•377,9TPB 



691 





f *•«#** 


•END OF UNIMON 


693 

003212 

1 05767 

1 75700 



TSTB 

CHN 


[IN CHAIN mode? 

694 

003216 

001322 




BNE 

ENDSVE 


(BR IF YES TO FNP Mooupp EXECUTION 

695 

001220 

005761 

000020 



TST 

STATCl) 


(BACKGROUND MODULE? 

696 

003224 

100403 




8MI 

PSENDB 


(BR IF NOT. 

697 

"03226 

105067 

1 75557 



CLPB 

BRAKE 


(RELEASE BRAKE. 

698 

"03232 

000726 




PR 

ENDSVD 


(IGNORE ENDPAS POINTER. 

699 

003234 

0001*7 

175670 


PSENDBl 

JMP 

COMQUE 


(CO TO COMMON quE call. 


XQACP 

UNimhN • 

DEC/Xn 

UC15 MONITOR 

MACYll 
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nCXMTN, 

.Pll 







701 




(TRACE 

TRAP ENTERS HEBE. 


702 

003240 

005767 

175540 

TPCI( 

TST 

TOQUE 

(I/O OR TYPE QUE WAITING? 

703 

003244 

001001 



BNE 

trcib 

iBR IF YES. 

704 

003246 

"00006 


TRCIAl 

RTT 


INO, EXIT, (RTT?). 

706 




; «*«»•< 


•START or UNIMON 


707 

003250 

004767 

"01652 

TBCIBt 

JSR 

PC.SRIOCK 

(CHECK FOR CTRL C, 

708 

003254 

012667 

175564 


MOV 

t6)+.TRCPC 

ISAVF MODS PC, 

709 







714 

003260 

012667 

175562 


MOV 

t6)+.TRCPSW 

(SAVE MOD'S PSW, 

715 

003264 

000401 



BR 

EXIIl, 


716 








717 




(EXIT 1 

CALL enters here. 


718 

003266 

022626 


EXIT.I 

POPSP2 



719 

003270 

010046 


EXITl , 

i MOV 

R0.-(6) 

(SAVE RO IN STACK, 

720 

003272 

016700 

175562 


MOV 

MONRO. RO 

(MODULE ADDR id RO, 

721 

003276 

062700 

000032 


ADD 

8SVR0.ro 

(POINT TO MOD'S PEG SAVE AREA. 

722 

003302 

012620 



MOV 

16)4. {0)+ 

(SAVE RO. (FROM STACK). 

723 

003304 

010120 



MOV 

Rl. C0)4 

(SAVE remaining REGS, 

724 

003306 

010220 



MOV 

R2. (O)* 


775 

003310 

010320 



MOV 

R3. (O)* 


726 

00331 2 

010420 



MOV 

R4. (0)4 


727 

003314 

010520 



MOV 

R5.(0)4 


728 

003316 

010610 



MOV 

R6. (0) 

(SAVE MODULE STACK POINTER. 

729 

003320 

016706 

175550 


MOV 

SPSAV.PS 

(RESTORE MONITOR STACK. 

730 

003324 

"16701 

175512 


MOV 

MONRi.Ri 

(RESTORE MONITOR REGS. 

731 

003330 

016702 

175530 


MOV 

M0NR2,R2 


732 

003334 

016703 

175526 


MOV 

MONR3.R3 


733 

003340 

016704 

175524 


MOV 

H0NR4,R4 


734 

003344 

016705 

175522 


MOV 

MONRS.RS 


735 

OO3350 

005067 

174422 

EXIT?. 

1 CLP 

PSW 

(CLEAR STATUS, 

736 

003354 

000240 



NOP 



737 

003356 

0001*7 

175774 


JMP 

QUETST 


738 








739 




ITYP02 

, ROUTINE 

. SERVICES error 

AND DATA ERROR CALLS, 

740 

003362 

011646 


TYPQ2, 

i MqV 

(6),-C6) 

(SAVE PC OE CALL AGAIN. 

741 

"03364 

004767 

000074 


JSP 

PC.LDTYPQ 

(QUEUE UP CALL. 

742 

003370 

010046 



MQV 

RO.-(65 

(SAVE RO. 

743 

003372 

0176"0 

000002 


MOV 

R2(6),P0 

(GET MODULE ADDP, 

744 

003376 

"62700 

000062 


ADD 

8AWAS42,Ro 

1 

745 

"03402 

014046 



«OV 

-(0),-(6) 

(GET AWAS. 

746 

0034"4 

005010 



clr 

(0) 

(CLEAR IT. 

747 

"03406 

01404ft 



MOV 

-(0) .-(6) 

(GET ASB, 

748 

"03410 

005010 



CLP 

CO) 

(CLEAR IT. 

749 

"03412 

014046 



MOV 

-C0).-C6) 

(GET ASTAT, 

750 

003414 

005010 



CLP 

CO) 

[CLEAR IT. 

751 

003416 

0 1 4046 



“OV 

-CO) .-(6) 

(GET ACSR, 

752 

003420 

005010 



CLP 

CO) 

(CLEAR IT. 

753 

003422 

014046 



“OV 

-C0).-C6) 

(GET CSRA. 

7^4 

"03424 

"12700 

"00005 


MOV 

»5.RO 

(LOAD TYPE DATA ONTO QUEUE, 

7S5 

00343" 

004767 

"0"030 

IS 1 

JSR 

PC.LDTYPQ 

(DO IT. 

7^6 

003434 

"053no 



DEC 

Bo 

(DONE? 

757 

"03436 

"01374 



BNE 

18 

iBR IF NOT. 

758 

003440 

"17ft"" 



WOV 

C6l4,B0 

(RESTORE RO, 


"034A2 

"0071 1 



PR 

EXIT. 




XQACP rjfJI''nw 
ncxMH-j.pi 1 


nrr/xii "^’.TTf^p 
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761 





ITYPQ. 

pnuTIVE . 

SERVICES END 

AND ENDPAS CALLS, 

762 

003444 

"04767 

00001 4 


TYPQ.I 

JSB 

PCiLDTYPO 

iQUEUE UP CALL. 

763 

003450 

005726 




PDPSP 



764 

003452 

000706 




BP 

EXITl. 


765 

766 





ITYPQI 

, ROUTINE 

, SERVICES MSC 

CALL. 

767 

003454 

004767 

000004 


TYPQl . 

1 OSR 

PC.LDTYPO 

iQUCUE UP CALL. 

768 

003460 

005726 




POPSP 



769 

003462 

000732 




BR 

EXIT2, 


770 

771 

003464 

005067 

174306 


ldtypq 

1 Cl/P 

Psw 

iCLEAR STATUS, 

772 

003470 

1 05767 

175311 



TSTB 

TYPQUE 

IREQUEST COUwT 07 

773 

003474 

001406 




REO 

11 

fBR IF YES. 

774 

003476 

026767 

175352 

175352 


CMP 

TyP01,TYP02 

jMO, TYPQl and TYP02 SAME? 

775 

O03504 

001002 




BNE 

11 

IBR IF NOT. 

776 

003506 

005767 

174267 



TST 

1 

lYES, QUEUE OFLO. CRASH SYi 

777 








ITO ODD ADDRESS, 

778 

00351 2 

026727 

175336 

007754 

111 

CMP 

TYPQl, ITYPLIM 

IREACHED HIGH LIMIT? 

779 

003520 

001003 




BNE 

2« 

iBR IF NOT, 

780 

003522 

012767 

007444 

175324 


MOV 

8TYPEO, TYPQl 

IRE 8 ET TYPQl, 

781 

003530 

016677 

000002 

175316 

2(1 

MOV 

2(6),9TYP01 

ISTORE PC OF PENDING CALL, 

782 

003536 

105267 

175243 



INCB 

TYPQUE 

» UPDATE REQUEST COUNTS. 

783 

003542 

062767 

000002 

175304 


ADD 

•2. TYPQl 

1 UPDATE TYPQl, 

784 

003550 

012616 




MOV 

(634,(6) 

1 

785 

003552 

000207 




RTS 

PC 

lEXIT, 

786 









787 





lOUE, 

routine. 

SERVICES QuE CALL. 

788 

003554 

005066 

000002 


QUE.i 

CLR 

2(6) 

1 INDICATE QUE CALL, 

789 









790 





IPIRO 

routine handles pirq calls. 

791 

003560 




PIRQ.l 




792 









793 





tLOIOQ 

routine. 



794 

003560 

012767 

000340 

174210 

tiOIOOi 

MOV 

iPRTY7,P8W 

lASSUME PRIORITY 7, 

795 

003566 

105767 

17521 2 



TSTB 

lOQUE 

jREOUEST COUNT 0? 

796 

003572 

001406 




BEQ 

IS 

|BR IF YES, 

797 

003574 

026767 

175250 

175250 


CMP 

IOQl,IOQ3 

lIOQl AND 1002 SAME? 

798 

003602 

001002 




BNE 

IS 

|BR IF NOT, 

799 

003604 

005767 

174171 



TST 

1 

iQUE OFLO, CRASH SYSTEM BY 

800 








lODD ADDRESS, 

801 

003610 

026727 

175234 

007444 

111 

CMP 

lOQl.SlOQLIM 

iREACHED HIGH LIMIT? 

802 

003616 

001003 




BNE 

2S 

iBR IF NOT, 

803 

003620 

012767 

007134 

175222 


MOV 

•IOQ,IOQ1 

IRESET 1001, 

804 

003626 

012677 

175216 


2ii 

MOV 

(6)4,91001 

iSTORE PC OF PENDING CALL, 

805 

003632 

105267 

175146 



INCB 

TOQUE 

lUPDATE REQUEST COUNTS, 

806 

003636 

062767 

000002 

175204 


ADD 

t2,IOQl 

(UPDATE 1001. 

807 

003644 

005726 




TST 

(6)4 

(CHECK FOR QUE CALL. 

808 

003646 

O01640 




BEQ 

EXIT2, 


809 

003650 

000002 




RTI 


(EXIT INTERRUPT, 


XQACB UNIMON 
CCXMON.Pll 


DEC/Xll UC15 monitor 


MACY11,6J4 J-AUO-73 09149 PAcE 2-16 


I SERVICE CTRL C, ENDS RuN MODE 


878 

003652 

005726 



CTRLCAi 

POPSP 



879 

003654 

022626 




POPSP2 


(REMOVE INTERRUPT FROM STACK 

880 

003656 

005067 

175152 


CTRLCBi 

CLR 

lOBKID 

(CLEAR MODULE TYPE INDICATOR 

881 

003662 

105767 

175124 



TSTB 

RHODE 

(IN RUN mode? 

882 

003666 

001004 




BNE 

11 

(BR IF YES, 

883 

003670 

004767 

0000)2 



JSR 

PC.CTRLX 

(CLEAR QUEUES, TYPE *C 

884 

003674 

000167 

000246 



JMP 

C0MC03 

(BACK TO KYBD ROUTINE, 

885 

003700 

004767 

000022 


111 

JSR 

PC.CTRLX 

(CLEAR QUEUES, TYPE *C 

886 

003704 

105767 

175206 



TSTB 

CHN 

(IN CHAIN MODE? 

897 

003710 

001004 




BNE 

CTRLCD 

(BR IE YES. BYPASS SUMMARY, 

888 

003712 

104406 

005571 


CTRLCCi 

MSC,SUMABY 

(TYPE RUN END SUMMARY TITLE. 

889 

003716 

004767 

000422 



JSR 

PC.DIRA 

(TYPE RUN SUMMARY, 

890 

003722 

000167 

001562 


CTRLCDi 

JMP 

CHNOUT 

(EXIT, OR RETURN TO KYBD RTN 

891 

003726 

012767 

000340 

174042 

CTRLXI 

MOV 

•PRTYT.PSW 

(ASSUME STATUS 7. 

892 

003734 

012767 

000062 

175172 


MOV 

I50.,CSTART 

(CLEAR QUEUES AND DELAY TOO, 

893 

003742 

004767 

001224 


lii 

JSR 

PC.CLRQUS 

(CLEAR QUEUES, 

894 

003746 

005367 

175162 



DEC 

CSTART 

(DONE? 

895 

003752 

001373 




BNE 

11 

(BR IF NOT, 

896 

003754 

000005 




RESET 



897 

003756 

005067 

174014 



CLR 

PSH 

(ASSUME status 0. 

898 

003762 

104406 

005607 



MSC,CTRLC 

(OUTPUT “C 

902 

003766 

000207 




RTS 

PC 

(EXIT, 



XQ»CP 

ijMI-n*; . 

npr/xn 

1IC15 

. Tir’p 
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ncxMHv . 

PI 1 








9^5 





(TYPE SUBPOUTINE. 


90fc 

O03770 

112767 

oppooi 

175021 

TYPFt 

MOVB 

•l.FILCTR 

(SET FILCTR TO 1 . 

907 

00377% 

1 176*6 

000002 



«OVB 

R2C6 J ,-C6) 

IGET CHAR, 

900 

004002 

001006 




RNE 

TYPEB 

iBP IF NOT terminator, 

909 

O040O4 

116716 

175103 



MOVB 

FILLER, (6) 

jOUTPUT FILLER, 

910 

00401 0 

00*767 

000072 



JSR 

PC.TTYOUT 


91 1 

004014 

012616 



TYPEAi 

MOV 

16)*, (6) 


912 

004016 

000207 




RTS 

PC 

lEXIT, 

913 

004020 

122716 

0000*5 


TYPEBi 

CMPB 

*45, (6) 

lIS IT %7 

914 

004024 

001020 




BNC 

TYPED 

IBR IF NOT, 

915 

004026 

112716 

000015 


typecj 

MQVB 

«1S, (61 

1 OUTPUT CP, 

916 

004032 

00*767 

000050 



JSR 

PC,TTY0UT 


917 

004036 

112746 

000012 



MOVB 

•12, -(I) 

» OUTPUT LF. 

916 

004042 

00*767 

0000*0 



JSR 

PC,TTYOUT 


919 

004046 

1 16767 

175040 

1747*3 


MOVB 

riLCNT,FILCTR 

»OET FILL COUNT, 

9?0 

O04054 

001002 




BNE 

TYPEE 

iBR IF NOT 0. 

9?1 

00 ‘056 

105267 

17*735 



INCB 

riLCTR 

lOOPS, MAKE IT A 1, 

922 

004062 

116746 

175025 


TYPEFI 

MOVB 

FILLER, -(61 

, OUTPUT FILLER. 

923 

00*066 

00*767 

000014 


TYPED 1 

JSR 

PC,TTYOUT 


924 

00*072 

105367 

174721 



OECB 

FILCTR 

fDECREMENT FILL COUNTER, 

925 

004076 

001371 




BNE 

TYPEE 

iBR IF NOT 0, 

926 

00*100 

005266 

000002 



INC 

2(6) 

lUPDATE CHAR POINTER, 

927 

00*104 

000731 




BR 

TYPE 


926 





ITTYOUT 

SUBROUTINE, 


930 





1 t*****^ 


•START OF UNIMON 


931 

004106 

105777 

174772 


TTYOUTI 

TSTB 

PTPB 

»TTY READY? 

932 

00*112 

001403 




BEO 

11 

iBR IF YES, 

933 








939 

004114 

10*401 

004106 

000000 


OUE.TTYOUT.O 

lOUE TO CHECK AGAIN, 

940 

00*122 

116677 

000002 

174754 

111 

MOVB 

2(6), PTPB 

(OUTPUT THE CHAR. 

941 

00*130 

000731 




BR 

TYPEA 


942 









994 

00*132 

1 0*406 

005613 


COMCOli 

MSG,INVCMD 

(Type invalid command. 

995 

O04136 




COMCONi 




996 

00*136 

005067 

174644 


COMC02I 

CLR 

SPCFLG 

(CLEAR SPECIAL FLAG AND 

997 








(DIR COMMAND INDICATOR, 

996 

004142 

105067 

17*752 



CLRB 

FILLID 

(CLEAR FILL COMMAND INDICATOR. 

999 

00*146 

104406 

005566 


C0MC03I 

MSG, DOT 


(TYPE DOT. 

1000 

00*152 

000167 

175116 


COMCO*! 

JMP 

INPUT 

(GO GET MORE INPUT. 

lom 









1002 





ISPECIAL INPUT 

ROUTINE. 


1003 

004156 

012667 

174650 


SINPUTI 

MOV 

(6)4,SRETRN 

(SAVE RETURN ADDR, 

1004 

00*162 

105267 

174620 



INCB 

SPCFLG 

(SET SPECIAL FLAG, 

1005 

00*166 

000771 




BR 

C0MC04 



XQACB 

UNimcn . 

DEC/Xll 

UCl5 MONITOR 

MACYll, 

.62* 3 

-AUC-73 09(49 PAGE 2.18 

OCXMON, 

iPl 1 








1007 





(RUN ROUTINE. 

STARTS EXERCISER 

EXECUTION, 

lOOB 

004170 

105067 

17*620 


RUN! 

CLRB 

MODCNT 

ICLEAR count of modules TO BE RUN, 

1009 

00*174 

012702 

006*24 



MOV 

•MODO,R2 

(CLEAR MODULES PASCNT AA D FRPCNT. 

1010 

00*200 

012201 



211 

MOV 

(2)4, R1 

(MODULE ADDR TO Rl, 

1011 

00*202 

001430 




BEG 

RUNG 

(BR IF NO mope. 

1012 

004204 

105767 

17*705 



TSTB 

PWRFI 

(UP from power fail? 

1013 

00*210 

001012 




BNE 

11 

(BR IF YES, 

1014 

00*212 

105767 

17*700 



TSTB 

CNN 

(IN CHAIN MODE? 

1015 

004216 

001007 




BNE 

11 

(BR IF YES, 

1016 

004220 

005061 

000026 



CLR 

PSCNT(l) 

(CLEAR NOD'S PASCNT, 

1017 

004224 

005061 

000030 



CLR 

ERCNT(l) 

(CLEAR MOD'S ERROR COUNT, 

loie 

00*230 

0*2761 

020000 

000020 


BIC 

•BIT13,STAT(1) 

(CLEAR STOPPED BIT, 

1019 

00*236 

032761 

0*0000 

000020 

111 

BIT 

•BITl4,STAT(l) 

(MODULE SELECTED? 

1020 

00*244 

001755 




BEO 

21 

(BR IF NOT, 

1021 

00*2*6 

032761 

020000 

000020 


BIT 

tBITl3,STAT(i) 

(MODULE STOPPED? 

1022 

00*254 

001351 




BNE 

21 

(BR IF YES. 

1023 

00*256 

105267 

17*532 



INCB 

MODCNT 

(NO, UP COUNT OF RMNNARLF MODUt.ES, 

1024 

00*262 

0007*6 




BR 

21 

(CO CHECK NEXT MODULE, 

1025 

00*264 

1 05767 

17*524 


RUNCi 

TSTB 

MODCNT 

(ANY RUNNABLE MODULES? 

1026 

004270 

001720 




BEO 

COMCO 1 

(BR IF NOT. INVALID COMMANDl 

1027 

00*272 

116767 

17*516 

17*515 


MOVB 

MODCNT, MODCTP 


1020 

00*300 

012767 

006*22 

17*51* 


MOV 

#M0D0.2,M0DPTR 

(MODULE TABLE ADDR TO MDOPTR. 

1029 

00*306 

012767 

040000 

17*520 


MOV 

•40000, lOBKID 

(START WITH non-trace BACKGROUND MODULES 

1030 

00*314 

105267 

17**72 



INCB 

RHODE 

(ACTIVATE RUN MODE, 

1032 







•••START OF UNIMON SPECIAL C0DE**««»»»****»»»»»***» 

1033 

004320 

000167 

175032 



JMP 

OUETST 


1034 







•••END OF UNIMON 


1036 

004324 

000704 



RUNBl 

HR 

COMCON 

(OUT. 


1037 
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xqacb 


DEP/X j 1 

"CIS 

•TTOP 

“ACYll 

.624 3- 

AUG-73 09149 PAGE 2-19 

DCX^PN. 

,P' 1 








1 0^9 





(MAP ROUTIVE. 

TYPES RESIDENT MODULES AND THIEIR START ADDRESS, 

1040 

'104326 

105267 

174455 


MAPI 

INCB 

DIRIND 

ISET DIR INDICATOR. 

1041 

004332 

105067 

001514 



CLRB 

MDIRE 

•TERMINATE ASCII STRING EARLY, 

1 042 

004336 

004767 

000002 



JSR 

PC.DIRA 

ITYPE MAP, 

1043 

004342 

000770 




BR 

RUNB 


1 044 









1 046 





)*#«««^ 


•♦START or UNIMON 


1 047 

004344 

005003 



OIRAi 

CLR 

R3 

ICLEAR MODULE NUMBER, 

1046 

004346 

012702 

006424 



MOV 

tM0DQ,R2 

IGET MODULE TABLE ADDR, 

1 049 








1054 

004352 

012201 



ISt 

MOV 

(2)t»R1 

ICET MODULE ADDR, 

1055 

004354 

001455 




BEG 

51 

iBR ir 0. all done. 

1 056 

004356 

032761 

040000 

000020 


BIT 

*BIIl4iSTAT(l) 

IHODULE SELECTED? 

1 057 

004364 

001003 




BN'E 

21 

iBR ir YES, 

1058 

004366 

105767 

174415 



TSTB 

DIRIND 

ITYPING DIRECTORY? 

1 059 

004372 

001 767 




BEG 

11 

iBR ir NOT, DONT type UNSELECTED 

1 0*0 

004374 

004567 

000232 


2$l 

JSR 

PS.riLLNM 

iriLL MOD NAME IN ASCII STRING. 

1 061 

0044O0 

006016 




AM0DNM41 

lADDR TO STUrr NAME IN, 

1 062 

004402 

010146 




MOV 

Rl,-(6) 

iMODULE ADDR TO STACK, 

1063 

004404 

004567 

000330 



JSR 

RSfOACNV 

ICONVERT MOD ADDR TO ASCII. 

1064 

00441 0 

006030 




A PC 



1 065 

004412 

016146 

000020 



MOV 

STATtl),-C6) 

iCONVERT MODULE STATUS. 

1 066 

004416 

004567 

000316 



JSR 

R5.0ACNV 


1 067 

004422 

006044 




AMDSTA 



1068 

004424 

016146 

000026 



MOV 

P8CNT(n,-(6) 

IMOD'S PASS COUNT TO STACK, 

1 069 

004430 

004567 

000360 



JSR 

RB.BDCNV 

iCONVERT IT TO DECIMAL ASCII. 

1070 

004434 

006063 




AP8CMT 



1071 

004436 

016146 

000030 



MOV 

ERCNT(n,*{6) 

iMOD'S ERROR COUNT TO STACK, 

1072 

004442 

004567 

000346 



JSR 

RB.BDCNV 

ICONVERT IT TO DECIMAL ASCII. 

1073 

004446 

006102 




AERRS 



1075 







••START or UNIMON 


1076 

004450 

104406 

005611 



MSO.ACRLE 


1077 

004454 

105767 

174327 



TSTB 

DIRIND 

ITYPING DIRECTORY? 

1078 

004460 

001004 




BNE 

64 

iBR ir YES. 

1079 

004462 

112767 

000040 

001362 


MOVB 

140. MDIRE 

|N0, ALLOW FULL STRING TYPING, 

1080 

004470 

000404 




BR 

3« 


1081 

004472 

005203 



611 

INC 

R3 

1 INCREMENT MODULE NUMBER. 

1082 

004474 

010346 




MOV 

R3.*(e) 

IMOVE IT TO STACK. 

1083 

004476 

004767 

000106 



JSR 

PC.ITOA 

ITYPE IT, 

1084 









1091 

004502 

104406 

006015 

3tl MSG, 

.AMODNM 

ITYPE ASCII line 

1092 

004506 

000721 


BR 

11 

iDO IT AGAIN. 

1093 

004510 

000207 


Sti RTS 

PC 

lEXIT, 

XQACP 

UNIMON . 

DEC /X 11 

tic 15 MONITOR 

MACyil,624 

3-AUG«73 09149 
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OCXMON.Pl 1 


1095 





1 SELECT 

MODULECS) ROUTINE, 


1096 









1097 

004512 

012767 

052761 

000040 

SELt 

MOV 

833761. SLDSB 

iMODirY COMMON TO SELECT MODULECS), 

1 098 

004520 

012767 

052761 

000052 


MOV 

893761. SLDSE 

1 

1 099 

004526 

000406 




BR 

SLDS 

iGO TO COMMON, 

1100 

IIPI 





IDESELECT MODULECS] ROUTINE, 


1102 

1 103 

004530 

012767 

042761 

000022 

DESI 

MOV 

843761. SLDSB 

iMODirY common to deselect MODULECS) 

1 104 

004536 

012767 

042761 

000034 


MOV 

843761. SLDSE 


1105 

1106 





ISELECT/DESELECT 

' COMMON, 


1108 

004544 




SLDSI 




1109 

004544 

004767 

noeiio 


SLDSAI 

JSR 

PC.OETNAM 

ICHECK name, get module ADDR. 

1110 

004550 

000407 




BR 

SLDSC 

|N0 NAME. SELECT/DESELECT ALL. 

1111 

004552 

00O664 




BR 

RUNB 

lINVALID OR NEX NAME, 

1112 

004554 

016701 

174242 



MOV 

MODPTR.Rl 

iMODULE ADDR TO Rl . 

1113 

004560 

042761 

040000 

000020 

SLDSBl 

BIC 

8BIT14.STATC1) 

ISELECT/DESELECT MODULE, 

1114 

004566 

000656 




BR 

RUNB 

IDONE, 

1115 

004570 

012702 

006424 


SLDSCI 

MOV 

IM0D0,R2 

IMODULE TABLE ADDR TO R2. 

1116 

004574 

012201 



SLDSDI 

MOV 

(2)4. R1 

IGET MODULE ADDR, 

1117 

004576 

001652 




BEG 

RUNB 

iBR ir o.end or table, done. 

1118 

004600 

042761 

040000 

000020 

SLDSEl 

BIC 

tBITl4.STAT(l} 

ISELECT/DESELECT MODULE, 

1119 

004606 

000772 




BR 

SLDSD 

IDO IT AGAIN. 

1120 





ILDCATIONS SLDSE 

1 AND SLDSE ARE 

PURE WHILE IN RUN MODE, 



XQftCB 

U'jU'O*’ - 

oEr/xi 1 

MClb "n* 


'•ACYll. 

624 4 -SUG -73 09149 PACP 2-21 

OCX^'nN . 

PI 1 








1 1S6 





1 8 I N A P Y 

TO ASCTI 

TYPF ROUTINE, ' 

TYPES CONTENTS OF "NUMBER", 

1157 

004610 

016646 

noOn02 


ITOAi 

VOV 

2f63 .-(63 


1 156 

004614 

004567 

000120 



JSP 

R5,OACNV 

(CONVERT NUMBER TO ASCII, 

1 159 

004670 

006 1 1 1 




AOCTAL 



1150 

004672 

104406 

00*111 



“SG, AOCTAL 

(TYPE OCTAL VALUE, 

1151 

004676 

012616 




MOV 

(6)4. (6) 


1152 

004630 

000207 




RTS 

PC 

(EXIT, 

1203 









1204 

004632 

010346 



FlI.LNMf 

MOV 

R3.-(6) 

I5AVE R3. 

1205 

004634 

012503 




MQV 

(53+,P3 

(STORE ADDR TO R3, 

1206 

004636 

017704 

fl0O0O6 



MOV 

• 6,R4 

(WILL DO 6 TIMES, 

1207 

004642 

117123 



1 $ I 

MOVE 

tl3 + ,(3)4. 

(MOVE CHAP. 

1208 

004644 

005304 




DEC 

R4 

(DONE? 

1 209 

004646 

001375 




BNC 

It 

(BR IF NOT. 

1210 

004650 

162701 

000006 



SUR 

t6.Rl 

(RESTORE R1 . 

1211 

004654 

012603 




MOV 

(634, R3 

(RESTORE P3, 

1212 

004656 

000205 




RTS 

R5 

(EXIT, 

1214 





f «#«««» 


iSTART or UNIMON 


1215 





|GETNA“ 

subroutine. 


1216 

004660 

0050*7 

174136 


GETNAMf 

CLR 

MODPTR 

1 

1217 

004664 

1 16767 

172700 

174130 


HOVB 

SR.MODPTB 

(GET MOD NUMBER 

1218 

004672 

001001 




BNE 

It 

(BR IF A MODULE t SET, 

1219 

004674 

000207 




RTS 

PC 

(SELECT THEM ALL, 

1 220 

004676 

006367 

174120 


Itl 

ASL 

MODPTR 

f 

1221 

004702 

062767 

00*422 

174112 


ADD 

#MODO-2, MODPTR 

J 

1222 

0047 1 0 

017767 

174106 

174104 


MOV 

•MODPTR, MODPTR 

(GET MODULE ADOP. 

1 223 

004716 

001005 




BNE 

2t 

(BR IF LEGAL ADDR. 

1224 

004720 

104406 

005657 



MSG,INVNAM 

1 

1225 

004724 

062716 

000002 



add 

•2,(63 

(SET UP INVALID NAME EXIT, 

1226 

004730 

000207 




RIS 

PC 

f 

1277 

004732 

062716 

000004 


2$ 1 

ADD 

•4, (63 

(SET UP SUCCESS EXIT. 

1226 

004736 

000207 




RTS 

PC 

1 

1229 









1230 








1290 









1291 





lOCIAL 

TO ASCII 

CONVERT ROUTINE 


1 292 

004740 

004467 

000200 


OACNVI 

JSR 

R4,SAV04 

(SAVE REGS 0-4. 

1 293 

004744 

016600 

00001 4 



MOV 

12.(63,F0 

(GET OCTAL VALUE. 

1294 

004750 

012501 




MOV 

(534, R1 

(GET DE5T ADDR, 

1295 

004752 

012702 

000006 



MOV 

• 6,R2 

(SET CONVERT COUNT TO 6. 

1 296 

004756 

060201 




ADD 

R2,P1 

(DEVELOP ADDR TO STORE 1ST CHAP, 

1297 

004760 

010003 



Itl 

MOV 

R0,R3 

(GET VALUE TO R3. 

1298 

004762 

042703 

177770 



BIC 

•177770, R3 

(ISOLATE LEAST SIGNIFICANT DIGIT 

1 299 

004766 

062703 

000060 



ADD 

i»»TR3 

(CONVERT TO ASCII. 

1300 

004772 

110341 




MOVE 

B*-C13 

(STORE IT, 

1301 

004774 

042700 

000007 



BIC 

•Hpo 

(CLEAR DIGIT JUST CONVERTED, 

1 302 

005000 

006000 




POP 

Pth 

(SHIFT IN NEXT DIGIT, 

1303 

005002 

006000 




ROR 

RO 


1 304 

005004 

006000 




ROR 

PO 


1305 

005006 

005302 




DEC 

R2 

(DONE 6 DIGITS? 

1306 

005010 

001363 




BNE 

It 

(BR IF NOT. 

1307 

00501 2 

000434 




BR 

XX 


1308 










XQACP 

UNIMON - 

DEC/Xll 

IIC15 MONITOR 

MACYi r. 

624 3' 

•AUG-T3 09149 

page 2-22 

DCXMON, 

,pi 1 









1 3(39 





(BINARY 

TO DECIMAL ASCII CONVERT 

routine. 

1310 

005014 

004467 

000124 


BDCNVI 

JSR 

R4,SAV04 


(SAVE REGS 0-4. 

1311 

005020 

"16601 

000014 



MOV 

12.(6),R1 


(GET BIN VALUE. 

1312 

005024 

012700 

006415 



MOV 

fDECVAL,Ro 


(GET ADDR OF DECVAL STRING. 

1313 

005030 

012702 

005114 



MOV 

»TENPWR,R2 


(ADDR or TENPWR TO R2. 

1 314 

005034 

012703 

000005 



MOV 

• S,R3 


(SET UP TO DO 5 CONVERSIONS, 

1 315 

005040 

005004 



Iti 

CLR 

R4 


(CLEAR RESULT. 

1316 

005042 

161201 



2t( 

SUB 

(2),R1 


(SUBTRACT TEN POWER. 

1317 

005044 

103402 




BC8 

3t 


(BRirUNSUCCESSFUL . 

1318 

005046 

005204 




INC 

R4 


(ADD 1 TO RESULT. 

1319 

005050 

000774 




BR 

2t 


(DO IT AGAIN. 

1 320 

005052 

062201 



Itl 

ADD 

t2)+,Rl 


(RESTORE SUBTRACTED VALUE, 

1 321 

005054 

062704 

000060 



ADD 

•60, R4 


(MAKE IT ASCII. 

1 322 

005060 

110420 




MOVB 

R4,(0)t 


(SAVE IT. 

1323 

005062 

005303 




DEC 

RJ 


(DONE 5? 

1 324 

0050*4 

001365 




BNE 

It 


(BR IF NOT. 

1325 

0050*6 

012501 




MOV 

(9U,R1 


(GET FINAL STORE ADDR, 

1 326 

O05o7o 

012702 

000005 



MOV 

• 5,R2 


(GET DIGIT COUNT DESIRED, 

1 327 

005074 

060201 




ADO 

R2,R1 


(COMPUTE ADDR OF 1ST DIGIT, 

1 328 

005076 

114041 



4tl 

MOVB 

-(oj,-cn 


(TRANSFER CHAR, 

1 329 

00510(1 

005302 




DEC 

R2 


(DONE? 

1330 

005102 

OOI 3 T 5 




BNE 

4t 


(BR IF NDT, 

1331 

005104 

004767 

000046 


XXt 

JSR 

PC,RST04 


(RESTORE REGS 0-4. 

1332 

005110 

012616 




MOV 

(6)7, (6) 



1333 

005112 

000205 




RTS 

R5 


(EXIT, 

1334 

00511 4 

023420 

001750 

000144 

TENPWRi 

10000 

.,1000. ,100. ,10. 

,1 



005122 

000012 

OOOOOl 







1336 







•••start of uNIMON 


1337 

"05126 

032767 

002000 

172434 

SR10CK( 

BIT 

•2000, SR 


(SRIO SET? 

1338 

005134 

001402 




BEO 

It 


(BR IE NOT. 

1339 

005136 

000167 

1 76514 



JHP 

CTRLCB 


(YES, GO, 

1340 

"05142 

000207 



Itl 

RTS 

PC 


(EXIT. 

1341 







•••END or UNIMON 




ACYll,674 1-AU(^-73 091 49 PACK ?-23 


XQAC» 

DCX“nM 

1 344 
1 345 
1 346 
1347 
) 34H 
1 349 
! 350 
1 351 
1 352 
1 353 
1354 
1 355 
1 356 
1357 
135g 

1359 

1360 

1361 

1362 

1363 

1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 
1374 
1 375 

1376 

1377 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 


XQACB 

DCXMON. 

1302 

1393 

1394 

1395 

1396 

1397 

1398 
1 399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

1409 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 
1 421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 
1 434 


Uiil’-T’ - riT/Xil !'Clb 
PI 1 


ISAVE PEGS 0-4 Sl'PPOUTiNE, 


005144 

010346 



SAV04I 

“OV 

R3.-(SP) 

►SAVE R3 

005146 

010246 




MOV 

R2»-tSP) 

►SAVE P2 

005150 

010145 




MOV 

Rl.-(SP3 

►SAVE Rl 

005152 

010046 




MOV 

RO.-CSP) 

►SAVE PO 

005154 

010407 




MOV 

R4f PC 

|R4 IS ALREADY SAVED 





1 RESTORE PEGS 

0-4 subroutine. 


005156 

012604 



RST04I 

MOV 

(SP)*.R4 

IRETURN ADDRESS 

005160 

012600 




MOV 

(SP)4,R0 

iRESTORt RO 

005162 

012601 




MOV 

(SPJM.RI 

|R1 

005164 

012602 




MOV 

(SP)*,R2 

|R2 

005166 

012503 




MOV 

CSP)+,R3 


005170 

000204 




RTS 

R4 

jRESTORE P4 AND RETURN 

005172 

012700 

O01004 


CLRQUSI 

MOV 

tIOOUEfRO 

ICLEAR VARIABLES. 

005176 

012701 

000072 



MOV 

lTKS-iaoUE»Rl 


O05202 

105020 



111 

CLRB 

(05 + 


005204 

005301 




DEC 

Rl 


005206 

001375 




BNE 

11 


O05210 

012767 

007134 

173632 


MOV 

lIOQiIOQl 


005216 

012767 

oo’is* 

173626 


MOV 

#I0a>I0Q2 


005224 

012767 

007444 

173622 


MOV 

•TYPEO.TYPOl 


005232 

012767 

007444 

173616 


MOV 

•TTPEQ.TYPQT 


005240 

012700 

007134 



MOV 

•JOOtRO 

ISET UP TO 

005244 

012701 

000620 



MOV 

•I00L+TYP0L,R1 

iCLEAR QUEUES, 

005250 

105020 



211 

CLRB 

(OJt 


005252 

005301 




DEC 

Rl 

iDONET 

005254 

001375 




BNE 

21 

jBR IE NOT. 







►••START or UNIMON 


005256 

012700 

000062 



MOV 

I62«R0 

lEILL VECTOR AREA WITH ,*2 

005262 

012701 

000060 



MOV 

•60iRl 

lAND HALT, 





f 



005266 

010021 



111 

MOV 

ROicn* 


005270 

005021 




CLR 

(!)♦ 


005272 

OlOlOO 




MOV 

Rl.RO 


O05274 

005720 




TST 

(0)4 


005276 

020027 

001002 



CMP 

R0>«1002 

lEILLED UP? 

005302 

001371 




BNE 

31 

iBR IE NOT. 

005304 

000207 




RTS 

PC 

lYES, EXIT. 


UWImon . DEC/Xil UC15 MONITOR MaCYIi',624 3-AUO-73 09149 PAGE 2**24 

Pll 


ITRAP INTePPREIEP ROUTINE, 


005306 

010046 


TRPINTi MOV 

R0«-C6) 

005310 

016600 

000002 

MOV 

3(6)«R0 

005314 

014000 


MOV 

•>(e)>RO 

005316 

006300 


ASL 

RO 

005320 

016000 

174340 

MOV 

TRPTAB-IRP2 

005324 

020027 

005364 

CMP 

ROf ITRPI-IM 

005330 

103001 


BNIS 

11 

005332 

000200 


RTS 

RO 

005334 

005767 

172441 

111 TST 

1 


■PUSH RO. 

I GET TRAP PC. 
iGCT TRAP CALL. 
iMULTIPLY PY 2, 

(O).RO IFORM TRAP ROUTINE ADDR. 
jWITHIN LIMITS? 

>BR IE NOT. 

»GO TO routine, RESTORE PO, 

lERROR INVALID TRAP CALL. CRASH SYSTEM, 



OllOOO 


TRP3allOOO 



000000 


TRAPXaO 



005340 



TRPTABI 



005340 

003266 


EXIT. 


iPOINTER FOR TRAP CALL EXIT 

005342 

003554 


OUE, 


IPOINTER FOP TRAP CALL CUE 

005344 

003444 


TYPO. 


iPOINTER FOR TRAP CALL ENDPAS 

005346 

003444 


TYPO, 


IPQINTER FOR TRAP CALL END 

005350 

003362 


TYPQ2, 


IPOINTER FOR TRAP CALL ERROR 

005352 

003362 


TYP02, 


iPOINTER FOR TRAP CALL DATEPR 

005354 

003454 


TYPOl, 


iPOINTER FOR TRAP CALL MSG 

005356 

003444 


TYPO. 


IPOINTER FOR TRAP CALL BREAK 

005360 

003362 


TYPQ2. 


iPOINTER FOR TRAP CALL FRRORN 

005362 

003444 


TYPO. 


IPOINTER FOR TRAP CALL MSGN 

005364 



TRPLIMI 






IBUS ERROR AND 

RESERVED INSTRUCTION jRAP ROUTINES 

005364 

012746 

000004 

BUSERRl MOV 

•4»-(6) 

1 INDICATE BUS ERROR TRAP. 

005370 

000402 


BR 

RE8IA 


005372 

012746 

000010 

RESIVTi MOV 

•10, -(6) 

1 INDICATE RESERVED INSTRUCTION 

005376 

010605 


RESlAl MOV 

R6,R5 

iSAVE SP POINTER. 

O054O0 

005725 


TST 

(SU 

iSET TO VALUE AT TRAP TIME. 

005402 

010546 


MOV 

R5,-(6) 

iSAVE IN STACK. 

005404 

000240 


NOP 


ICLEAR THE WORLD. 

005406 

004767 

177560 

JSR 

PCfCLRQUS 

iCLEAR queues. 

O05412 

104406 

005714 

MSC.SYSERR 

ITYPE SYS ERROR FAILURE, 

005416 

012705 

004610 

MOV 

•IT0A,R9 


005422 

004715 


JSR 

PC, (5) 

ITYPE SP AT TIME OF ERROR, 

005424 

004715 


JSR 

PC, (5) 

iTYPE TRAP ADDR, 

005426 

004715 


JSR 

PC, (5) 

itype eRR pc. 

005430 

004715 


JSR 

PC,CS) 

iTYPE ERR PSW, 

005432 

000167 

176254 

JMP 

CTRLCC 

IGO TYPE SUMMARY. 



XCiCP 


Of C/X] 1 

"CIS •'T 

JITPP 

'■ACYI 1 . 

624 

3 -AUO -73 09149 

PAc;F 2-25 

OCX*’ n-: , 

,P1 1 








1416 





tPHaEP 

ro/v 

»‘jr POWER HP pnUTIVfS. 

1417 

005416 

01 2767 

006454 

17236C 

PU'ppwj 

‘10V 

tpWRI.ip, PWFPV 

(SET UP POWER UP VFCTGP. 

1416 

005444 

1 16767 

171342 

171443 


MOVP 

RHODE, PW6r : 

iSAVP PUN MODE IMPTCATOP, 

1419 

0(j5452 

0 0 0 0 0 C 




HALT 



1 440 

005454 

012767 

005436 

172342 

P'^iPIIp t 

MOV 

ipWpr'N,pWPEV 

iSFT UP POWER OQWN VECTOR 

1411 

005462 

012706 

O07l 34 



>*OV 

•SPD0T,P6 

1 RESET STACK. 

1 442 

005466 

004767 

177500 



JSP 

PC.CLRQUS 

tCLEAR OUEUES. 

1443 

005472 

104406 

005730 



“SC, 

PWPFAl 

iTYPE POWER FAILURE “ESSAl 

1 444 

005476 

1 05767 

171413 



TSTfi 

PWPFI 

IWFRF WE IN PUN “DDE? 

1445 

005502 

001402 




PEO 

CHNOHT 

iBR IF NOT, WATT FOp USER 

1 446 

005504 

000167 

O0O076 



.T«P 

LOGICA 

iGD PUN AGAIN, 

1447 

1 449 





iROUTr'IE TO 

EXIT TO CHAIN MONITOR, OR PETUPl TO xyPD PTf . 

1 449 

005510 

1 05767 

1 73402 


rHwouTs 

TSTB 

CRN 

lIN CHAIN MnOE? 

1 450 

005514 

O01002 




R'JE 

IS 

)BR TF YES. 

1451 

005516 

000167 

1 7641 4 



JPP 

COMCON 

tBACK TO KYBD SERVICE. 

1452 

005522 

016700 

1 723 1 4 


IS 1 

MOV 

42<Po 


1453 

005526 

004710 



tOGICl 

JSR 

PC, CO) 

iRETURN TO MONITOR, 

1 454 

005530 

OC0240 

OOO240 

000240 


.WOPB NOP,VOP,NOP 


1 455 

005516 

0001*7 

176426 


tOGICAl 

JHP 

PUN 

(GO START ANOTHER PASS, 


XQACH 

UN I “ON - 

OEC/Xl 1 

UC15 MON 

ITOR 

MACYl 1 . 

624 3-AUG-73 09149 PAGE 2-26 

nCXHON. 

,P1 1 







14r2 





IPURF MESSAGES 


1 493 

005542 

042045 

041505 

054057 

TITLEJ 

.ASCIZ 

•%nEC/XH EXERCISER!' 


005550 

030461 

042440 

042530 





O05556 

041522 

051511 

051105 





005564 

000045 






1 4A4 

005566 

027045 

000 


OOTI 

.ASCIZ 


1495 

005571 

045 

052522 

020116 

SUMAPYl 

.ASCIZ 

'%PUK SUMMARY!' 


005576 

052523 

046515 

051101 





005604 

022531 

000 





1496 

005607 

136 

022503 

000 

CTRLCI 

.ASCIZ 

'•C!' 

14R7 

005613 

045 

047111 

040526 

INVCMDl 

.ASCIZ 

'!INVALID COMMAND' 


005620 

044514 

020104 

047503 





005626 

046515 

047101 

000104 




1 49R 

005634 

044445 

053116 

046101 

INVADRI 

.ASCIZ 

'!INVALID ADDR/DATA' 


005642 

042111 

040440 

042104 





005650 

027522 

040504 

040524 





005656 

000 






14R9 

005657 

045 

047111 

040526 

INVNAMI 

.ASCIZ 

'%INVALID/NEX NAME' 


005664 

044514 

027504 

042516 





005672 

020130 

040516 

042515 





005700 

000 






1 490 

00570] 

045 

041113 

043125 

KBOFLOI 

.ASCTZ 

'!KBuF OFLC' 


005706 

047440 

046106 

000117 




1 491 

005714 

051445 

051531 

042440 

SYSERRi 

.ASCIZ 

'!SYS ERROR ' 


005722 

051122 

051117 

000040 




1 492 

005730 

050045 

051127 

043040 

PwRFAI* 

.ASCIZ 

'!PWR FAILUPE' 


005736 

044501 

052514 

042522 





005744 

000 






1403 

005745 

045 

051127 

052111 

ROTENBS 

.ASCTZ 

'!WRITE BUFFER ROTATION ENABLEO. RANGEI 


005752 

020105 

052502 

043106 





O05760 

051105 

051040 

052117 





005766 

052101 

047511 

0^0116 





005774 

047105 

041101 

042514 





O06002 

027104 

051040 

047101 





006010 

042507 

020072 

000 
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1 405 





llMpilRE 

MESSAGES, 


1 497 

006015 

006022 

040 

020040 

020040 

040440 

020040 

020124 

AMOCNMl 

.ASCII 


AT • 

1502 

006030 

006036 

020040 

O51440 

020040 

040534 

020040 

020124 

APCt 

.ASCII 


STAT ' 

1503 

006044 

020040 

020040 

020040 

AMDSTAI 

.ASCII 

* 

' 

1504 

006052 

006060 

020040 

052116 

040520 

040 

041533 

MO IRE 1 

.ASCII 

' PASCnT ' 

1505 

006063 

006070 

006076 

040 

020056 

047103 

020040 

042440 

020124 

020040 

051122 

APsCVTI 

.ASCII 


ERRCNT ' 

1506 

006102 

006110 

030040 

000 

020040 

027040 

AERRgl 

.ASCIZ 



1507 

006111 

006116 

040 

020040 

020040 

020040 

020040 

000 

AOCTAtt 

.ASCIZ 


PC ' 

1508 

006133 

006130 

006136 

045 

020040 

040 

020045 

020040 

020040 

041520 

AENOi 

.ASCII 

'%* 

1509 

006137 

006144 

006152 

040 

030040 

040 

020040 

040440 

020040 

041530 

AENOll 

.ASCII 


APC ' 

1510 

006153 

006160 

040 

030040 

020040 

000 

020040 

AEN03I 

.ASCIZ 

# 


151 1 

006163 

006170 

040 

043530 

051104 

032504 

050117 

000 

MOOENOi 

.ASCIZ 

' DrOPPED%' 

1512 

006175 

006203 

040 

051501 

047105 

040 

050104 

APsENOi 

.ASCII 

' ENDPAS ' 

1513 

006205 

006213 

040 

032456 

020040 

000 

020040 

BPSCNTI 

.ASCIZ 



1514 

006215 

006222 

045 

040 

051503 

040532 

AERROpi 

.ASCII 

'%CsrA 


1515 

006323 

006330 

006236 

040 

020040 

040 

020040 

051503 

030040 

041532 

ACSPACl 

.ASCII 


CsRC ' 

1516 

006237 

006244 

006352 

040 

020040 

030103 

020040 

052123 

020040 

052101 

ACSPCI 

.ASCII 


sr»TC ' 

1517 

006254 

006262 

030040 

022440 

030040 

000 

020040 

AsTAlCi 

.ASCIZ 


%' 

1518 

006365 

006272 

045 

040 

051503 

040532 

ADTERpi 

.ASCII 

'%CSRA 


1519 

006273 

006300 

040 

020040 

020040 

027523 

020040 

030103 

ADTC6I 

.ASCII 


S/B ' 

1530 

006306 

006314 

020040 

053440 

020040 

051501 

020040 

040 

adtesi 

.ASCII 


WAS ' 

1521 

006321 

006326 

006334 

040 

020040 

020122 

020040 

041123 

020040 

042101 

AOTE2I 

.ASCII 


SBADr ' 

1522 

006336 

006344 

006352 

020040 

053440 

020122 

030040 

051501 

030040 

043101 

AOTESI 

.ASCII 


wasadr * 

1523 

006354 

006362 

006370 

020040 

020040 

042440 

030040 

040504 

051122 

020040 

040534 

051117 

ADTE4I 

.ASCIZ 


DATA Error* 
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006376 

000045 






1524 

006400 

042440 

051122 

020043 

ERRNMBI 

.ASCII 

' ERR» ' 

1525 

006406 

020040 

020040 

027040 

AERNMBi 

.ASCIZ 

. . 


006414 

ooo 






1526 

006415 

040 

040 

040 

OECVALI 

.byte 

40,40.40,40.40,40 


006430 

040 

040 

040 




1527 








1528 








1529 








1530 





1 Buffer 

AREAS., 


1531 


006434 




.EVEN 


1532 

006434 




MODOi 


IROOM FOR 100 MODULE pniNTEB.P 

1541 

006734 

000100 




.BLKW 

64. 

1542 

007134 




SPBOTl 



1543 

007134 

000310 



lOQl 

.BLKB 

lOQL 

1544 

007444 

000310 



TYPED 1 

.BLKB 

TYROL 

1545 








1546 


007754 




.B. 


1547 


004657 




BUFSIZbAmODnM-START 



XQACP a'^r'O' 
ncx“nv.ri i 
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1549 

1 ?so 

15P1 
1 5i52 
1543 
1 554 

1555 

1556 

1557 
155B 

1559 

1560 

1561 

1562 

1563 
1668 

1609 

1610 
1611 
1612 


1613 


1614 


1615 


1616 

1617 


XQACP 

OCXMCM 

ACPLP 

Aonp 

ADTE4 

AEf'DI 

AERPS 

A PC 

ASTAT 

BITO 

BIT12 

B1T2 

BIT6 

BKOSVC 

break 

BUSEV 

CLRQI'S 

CDMcns 

cstapt 

CtPLCC 

DDPPTP 

OIBIND 

DRTDB2 

END 

ENDSVB 

ERCNT 

ERROR 

ERSVCB 

EXIT 

EILCNT 

FILLNN 

INIT 

INVNAN 

lOQLIM 

lOQUE 

ITOA 

LDTOO 

LOCOPE 

BDTPF 

MODPTR 

MONR2 

MSG 

“SGI . 

PASF.ND 

POPSP 

PRTyf 

PSENDA 

PUSH? 

PWRFV 

QUE 

RESINT 

ROTI 

run 

PO 

P4 

SBADR 


N . riEC/Xll >'-15 ‘'OMTHr 


iPOUTINE TO OFTERHINE WHETHER WRITE BUFFER ROTATION SHOULD TAKE PLACE, 
lAMD TO DETERMINE CORE LIMITS OF BUFFER ROTATION, ALSO TO DETERMINE USE OF 
IPTI OR PTT TnSTPUCTION, 



007134 




.alDQ 







iCHECK 

FOP USE 

OF RTT OR RTI 

INSTRUCTION. 

O07134 




SETBUFi 




007134 

011665 




MOV 

(6) ,R5 

ISAVE RETURN POINTER. 

D07136 

012767 

007156 

170644 


MOV 

I2(>PESIV 

ISET UP RESERVED INSTRUCTION TRAP. 

007144 

005046 




CLP 

-(6) 


007146 

012746 

007154 



MQV 

*l»,-(6) 

ISET UP TO EXIT WITH RTT INSTRUCTIDN. 

007152 

000006 




PTT 


llF RTT NOT VALID IT WILL TRAP OUT, 

007154 

000406 



HI 

BP 

31 

tOK IF NO TRAP OCCURS, 

007 156 

012767 

000002 

174062 

2t 1 

MOV 

»RT1,TRCIA 

(TRAP comes here, CHANCE RTT'S TO PTI'S 

007i64 

012767 

000002 

1 7261 0 


"OV 

•RTI.RTTl 


007172 

012767 

005372 

170610 

3S t 

MOV 

(RESINT, RESIV 

(RESTORE RES INST VECTOR, 

007260 

005267 

170644 


lOSI 

INC 

LOCORE 

(SET LOCORE NON-ZEDO. 

007200 

0050«7 

170570 


9$ 1 

CLR 

0 

(CLEAR LOC 0. 

007210 

000205 




RTS 

R5 

lEXIT, 

007212 

177776 

600001 

177775 

wCAsEi 

• wOrd 

177776.1.177775,2, 177773,4.177767,10 

O07220 

000002 

177773 

000004 





007226 

177767 

000010 






007232 

1 77757 

000020 

177737 


.WORD 

177757,20,177737,40,177677, 100. 177577,200 

007240 

000040 

177677 

000100 





007246 

177577 

000200 






007252 

177377 

000400 

176777 


.WORD 

177377,400,176777,1000,175777,2000,173777,4000 

007260 

001000 

175777 

003000 





007266 

173777 

004000 






007272 

167777 

OlOOOO 

157777 


.WORD 

167777,10000, 

157777,20000,137777,40000,77777,100000 

007300 

020000 

137777 

040000 





007306 

077777 

100000 






007312 




WCAsCEl 





OOOOOl 




.END 
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symbol 

TABLE 











s 

005611 


ACSR 

m 

000052 


ACSPAC 


006223 


ACSRC 


006237 


0OJO24 


ADTERR 


006265 


ADTE2 


006321 


ADTE3 


006306 


006354 


ADTE5 


006336 


ADTE6 


006273 


AEND 


006123 


006137 


AEND2 


006153 


AERNMB 


006406 


AERROR 


006215 


006102 


AMDSTA 


006044 


AHOONM 


006015 


AOCTAL 


006111 


006030 


APSCNT 


006063 


APSEND 


006175 


ASB 

a 

000056 

s 

000054 


ASTATC 


006254 


AWAS 

8 

000060 


BDCNV 


005014 G 

= 

000001 


BITl 

8 

000002 


BITIO 

a 

002000 


BITll 

a 

004000 

s 

01 oooo 


PIT13 

a 

020000 


BIT14 

a 

0*0000 


BIT15 

a 

100000 

s 

000004 


PIT3 

a 

000010 


B1T4 

8 

000020 


BIT5 

a 

000040 

= 

0001 00 


BIT7 

a 

000200 


BITS 

a 

000400 


BIT9 

a 

001000 


002004 


BKOUE 


001010 


bpscnt 


006205 


BRAKE 


001011 

s 

104407 


BREAK, 


002256 


BUFSIZ 

a 

004657 


BUSERR 


005364 


000004 


CADDR 


001132 


CHN 


001116 


CHVOUT 


005510 


005172 


COMCON 


004136 


COMCbl 


004132 


C0MC02 


004136 


004146 


C0MC04 


004152 


COMQUE 


001130 


CSRA 

a 

000050 


001134 


CTRLC 


005607 


CTPLCA 


003652 


CTRLCB 


003656 


003712 


CTPLCD 


003722 


ct»lx 


003726 


daterr 

a 

104405 


000042 


DECVAL 


006415 


DES 


004530 


DIRA 


004344 


001007 


DOT 


005566 


DRCSR2 


001124 


DRIDBl 


001122 


001126 


DSTADR 


001030 


EABITS 


000054 

G 

EMTV 


000030 

a 

104403 


ENDCOM 


002720 


ENDPAS 

a 

104402 


ENDSVA 


003024 


003052 


ENDSVC 


003016 


ENDSVD 


003110 


endsve 


003064 

s 

000030 


ERRIND 


001016 


ERRLZM 


001106 


errnmb 


006400 

a 

104404 


ERRORN 

a 

104410 


ERRSVC 


002312 


ERSVCA 


002320 


002366 


ERSVCC 


002372 


ERSVCl 


002304 


ERSVC2 


002274 

s 

104400 


EXIT. 


003266 


EXlTl, 


003270 


EXIT2, 


003350 


001112 


riLCTR 


001017 


FILLER 


001113 


riLLID 


001120 


004632 


GETNAH 


004660 


HICORE 


000052 

G 

IE 

a 

000100 

a 

0O0022 


INPUT 


001274 


INVAOR 


005634 


INVCMD 


005613 


005657 


lOBKID 


001034 


lOQ 


007134 


lOQL 

a 

000310 

a 

007444 


lOQSVA 


001704 


lOQSVB 


001772 


I008VC 


001614 


001004 


1001 


001050 


I0Q2 


001052 


lOTV 


000020 


004610 


KBOFLO 


005701 


KBPTR 


001020 


KBUFL 

a 

000040 


003560 


LDTYPO 


003464 


LINEl 

a 

•••••• 

U 

L1NE2 

a 

•«•••• u 


000050 

G 

LOGIC 


005526 


LOGICA 


005536 


MAP 


004326 


006052 


MOOCNT 


001014 


MODCTR 


OOlOlS 


MODEND 


006163 


001022 


MQDQ 


006424 

G 

MONRO 


001060 


MONRl 


001062 


001064 


MONR3 


001066 


M0NR4 


001070 


MONRS 


001072 

a 

1 04406 


MSGn 

a 

104411 


MSGn. 


002134 


MSG. 


002222 


002240 


NUMBER 


001026 


OACNV 


004740 

G 

OPEN 

a 

000000 


0031 14 


PC 

ai 

*000007 


PIRQ 

a 

000004 


PIRQ. 


003560 

a 

005726 


POPSP2 

a 

022626 


PRTY4 

a 

000200 


PRTY5 

a 

000240 

a 

000300 


PRTY7 

a 

000340 


PS 

a 

177776 


PSCNT 

a 

000026 


003200 


PSENDB 


003234 


PSW 

a 

177776 


PUSH 

a 

005746 

a 

024646 


PWPDN 


005436 


PWPFAI 


005730 


PWREI 


001115 


000024 


pWPUP 


005454 


QTSTB 


001416 


QISTC 


001430 

a 

104401 


OUETST 


001356 


OUE, 


003554 


RESIA 


005376 


005372 


RESIV 


000010 


RHODE 


001012 


ROTENB 


005745 


001 1 1 ’ 


PSTAT 


001042 


RST04 


005156 


RTTl 


002002 


0041 7o 


RUNB 


004324 


PUNC 


004264 


RUNSVC 


001436 

= 

AOOOOOO 


PI 

«%000001 


R2 

■*000002 


ni 

■*000003 

a 

1000004 


P5 

■6000005 


R6 

■*000006 


SAV04 


005144 

a 

000052 


SEL 


004512 


SETBUF 


007134 


SINPUT 


004156 
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SLDS 


004544 

SLDSA 


004544 

SLDSR 


004560 

SLDSC 


004570 

SLDsD 


004574 

SLDSE 


004600 

SP 

■4000006 

spbot 


007134 

spcflg 


OOlPOP 

SPOINT 

a 

000024 

SPSAV 


001074 

SR 

a 

177570 

SBFTPH 


001032 

SRIOCK 


005126 

START 


001136 

STAT 

a 

000020 

STATl 

a 

000021 

SUMAPY 


005571 

SVPO 

8 

000032 

SVRl 

a 

000034 

SVR2 

a 

00003fi 

SVR3 

■ 

000040 

SVP4 

8 

000042 

SVR5 

a 

000044 

SVR6 

a 

000046 

SYSERl 


001114 

SYSERR 


005714 

TABADR 


001040 

TENpWp 


005114 

TITLE 


005542 

TKB 


001100 

TKS 


001076 

TPB 


001104 

TPS 


001102 

TRAPX 

8 

000012 

TRCI 


003240 

TRCIA 


003246 

TRCIB 


0032S0 

TRCPC 


001044 

TRCPSW 


001046 

TRCV 


000014 

TRPINT 


005306 

TRPLIM 


005364 

TRPTAB 


005340 

TRPV 


000034 

TPP2 

a 

011000 

TTYBSY 


001013 

TTYBYT 


001110 

TTTOni 


004106 

TYPDAT 


002754 

TYPE 


003770 

TYPEA 


004014 

TTPEB 


004020 

TYPEC 


004026 

TYPED 


004066 

TYPEE 


004062 

TYPED 


007444 

TYPLIM 

a 

007754 

TYROL 

a 

000310 

TYPOOE 


001005 

TYPQ, 


003444 

TYPQl 


001054 

TYPOl . 


003454 

TYP02 


001056 

TYPQ2. 


003362 

TYPSVC 


002032 

TYPTAB 


002114 

UC15 

a 

000000 

WASADR 

a 

000054 

wBur 


000056 G 

HCASE 


007212 

WCASEE 


007312 

XX 


005104 

YES 


001036 

, 

a 

007312 





ooocoo 


EPR0P5 DETECTED! 0 


XOACB UNlMQN • DEC/Xj! UC15 MONITOR MACY11.624 3«AUe-7I 0*149 PAGE 2-12 
DCXHON.Pll 

•,XQAeB.PRT/N«DCXMON.Pll/EQiUCI5 
RUN-TIMEl 7 12 0 SECONDS 
CORE USED! 4E 



XUCAR DKC/Xn SYSIFM EXEPCISPP MODULE 

ncxco’i.pi 1 


'^ACYII.624 21-AUG-73 14:50 


page 1 


1 

21 3 


.HEM 
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IDENTiriCATION 


PRODUCT CODE: 
PRODUCT NAME: 
DATE! 

maintaineri 
AUTHORfS) I 


MAINDEC-1 1-DXUCA-B>D 
XUCAB-DEC/Xll UC15 MODULE 
JUNE IS, 1973 
DIAGNOSTIC CROUP 
R. CHRISTOPHER 


COPYRIGHT 1973, DIGITAL EQUIPMENT CORPORTION, MAYNARD, MASS. 
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1, ABSTRACT 


THIS MODULE IN COMBINATION WITH THE PDP-ts SYSTEM EXERCISER 
module UC15, EXERCISES THE UMICHANNEL15 HARDWARE WHICH CONSISTS 

or: 

A. MXIS-B 

B. OR15 

C. 2 DR11>C*S 


2, REQUIREMENTS 


HARDWARE: UNICHANNELlS 

STORAGE: THE XUCA MODULE REQUIRES 1400 OCTAL WORDS 

or STORAGE 


3, PASS OEriNITION 


ONE PASS or THE XUCA MODULE Is DEFINED AS RUNNING EACH OF THE 
module's five ROUTINES ONCE. 


4, EXECUTION TIME 


THE XUCA MODULE RUNNING ALONE TAKES APPROXIMATELY ONE MINUTE 
TO COMPLETE A PASS. 


5. CONFIGURATION REQUIREMENTS 


DEFAULT PARAMETERS: 

DEVADR: 1*7760, VECTOR: 300, BR1:5, BR2:7, DEVCNTJl 
REQUIRED PARAMETERS: NONE 
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A. OEVlCE/OPTIQN SETUP 






7 , 

MODULE OPERATION 



TEST SEQUENCE: 




routine 0 - 

CHECKS 
BY THE 

A 125252 pattern WHICH HAS BEEN WRITTEN 
PDP-15 EXERCISER MODULE. 


ROUTINE 1 - 

CHECKS 
BY THE 

A 52525 PATTERN WHICH HAS BEEN WRITTEN 
PDP-15 EXERCISER MODULE. 


ROUTINE 2 • 

WRITES 

POP-15 

A 125252 pattern TO BE CHECKED BY THE 
EXERCISER MODULE, 


ROUTINE 3 • 

WRITES 

POP-15 

A 525-25 pattern TO BE CHECKED BY THE 
EXERCISER MODULE, 


ROUTINE 4 • 

CHECKS FOR CORRECT TCBP'S SENT FROM THE PDP-15 
EXERCISER MODULE, 

«• 

OPERATION OPTIONS 



NONE 


MON STARDAPD PRINTOUTS 


A A DATA ERROR OCCURRING IN ROUTINE 4 WlI'I' °UT 

’ MEANlNCrULL INrORMATlON ONLY TOR LOC'S ASB AND AWAS, 

S A DATA ERROR BEING OuTRU! RRON SUBROUTINE RPTERR WILL 
* ALWAYS HAVE THE SAME ADDRESS IN LOC'S SBADR AND WASADR 
AND HILL OUTPUT THE DATA EXPECTED FROM ONE OF THE COMMON 
MEHORT TESTS AND THE DATA ACTUALLY READ, THE CSRA IS 
MIPAMTNfiLCaS. 
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XUCAB. 1 

Pll 








000000* 

1 

BKMOD ' 

CXUCAB >,167760,300,5,7 




000000* 


MODULE 

40020, XUCAB ,167760,300 

,5,7, 





.TITLE 

XUCAB DEC/Xll SYSTEM EXERCISER MODULE 







• LIST 

BIN 



000000* 



BEGINI 





000000' 

052530 

040503 

020102 MODNAMi 

.ASCII 

/XUCAB / 

1 MODULE NAME, 


000006' 

167760 


ADDRi 

16776040 

rlST DEVICE ADDR, 


000010' 

000300 


VECTORl 

30040 


:1ST DEVICE VECTOR, 


000012' 

240 


BRlI 

.BYTE 

PRTY540 

IlST BR LEVEL, 


000013' 

340 


BR2l 

.BYTE 

PRTY740 

:2ND BR LEVEL. 


000014' 

000001 


OVIDli 

41 


tDEVICE INDICATOR 1, 


000016' 

000000 


SRII 

OPEN 


:aWITCH REGISTER 1 


000020' 

040020 


STATl 

40020 


:5TATUS WORD, 


000022* 

000206' 


INITi 

START 


:M0DULE START ADDR, 


000024' 

000182' 


SPQlNTi 

MODSP 


fMODULE STACK POINTER. 


000026* 

000000 


PASCNTi 

0 


:PASS COUNTER, 


000030' 

000000 


ERRCNTl 

0 


:ERRDR COUNTER, 


000032' 

OOOOOO 


SVROl 

OPEN 


:LOC TO SAVE RO, 


000034' 

000000 


SVRli 

OPEN 


:LOC TO SAVE Rl, 


000036' 

OOOOOO 


SVR2I 

OPEN 


ILOC TO SAVE R2, 


000040* 

OOOOOO 


SVRJl 

OPEN 


:LOC TO SAVE R3, 


000042' 

OOOOOO 


SVR4i 

OPEN 


ILOC TO SAVE R4. 


000044' 

OOOOOO 


SVR5I 

OPEN 


iLOC TO SAVE R5, 


000046' 

OOOOOO 


SVR6I 

OPEN 


iLOC TO SAVE R6, 


000050' 

OOOOOO 


CSRAi 

OPEN 


:ADDR or current CSP, 


000052' 



SBAORi 



lADDR or GOOD DATA, OP 


000052' 

OOOOOO 


ACSRt 

OPEN 


(CONTENTS or CSR. 


000054' 



WASADR 1 



rAODP OF BAD DATA, DR 


000054' 

OOOOOO 


ASTATJ 

OPEN 


:STATUS REG CONTENTS, 


000056' 

OOOOOO 


ASBi 

OPEN 


lEXPECTED DATA. 


000060' 

OOOOOO 


AWASi 

OPEN 


rACTUAL DATA, 






,REPT 

SPSIZ 

fMODULE STACK STARTS HERE, 






.NLIST 








.WORD 

0 







.LIST 








.endr 




000162' 



MODSPI 




334 




1*#****^ 

1 



335 

000162' 

OOOOOO 


TCBPi 

OPEN 



336 

000164' 

OOOOOO 


TEMPI 

OPEN 



337 

000166' 

OOOOOO 


TMPi 

OPEN 



338 

O00170' 

OOOOOO 


COMMi 

OPEN 



339 

000172' 

000137 

000414 

' TCBPFLl 

JMP RiSTA.S 


340 

000176' 

OOOOOO 


APIDNi 

OPEN 



341 

000200' 

000177 

177772 

APIDNCI 

JMP RAPIDN 


342 

000204' 

OOOOOO 


CMEMBF: 

OPEN 



343 





r 



344 

000206' 

012704 

000001 

STARTI 

MOV #1, 

R4 


345 

000212' 

0 16705 

1 77570 

STA.A: 

MOV ADDP,R5 

iGET DEVICE'S 1ST REG ADDR. 

346 

00021ft' 

016700 

1 77566 


MOV VECTOR, RO 

:GET 1ST DEVICE VECTOR 
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347 

''00222 * 

012720 

''00200 * 



‘■ov iAPIDNE, tPO)* 

lINIT 1ST VECTOR 



346 

000226' 

1 16720 

1 77560 



'•OVB BRl.fPO)* 




349 

000232* 

016700 

177552 



MOV VECTOP.PO 




350 

000236* 

012760 

000172* 

000010 


MOV iTCEPEL.lOCRO) 

llNIT 2ND VECTOR 



351 

000244* 

1 16760 

1 77543 

000012 


MOVB BP2. 12(80) 




352 

000252* 

012737 

000276* 

000176* 


MQV »STA,B,»tAP106 

,INIT FOR CORRECT VECTOR 



353 

000260* 

004737 

001 344' 



JSP PC,8»PEND 




354 

000264* 

1 12765 

000047 

000012 


MOVE •47,12(P5) 

lAPI LO TO 47 



355 

000272* 

000137 

001140* 



JMP P»WA,1 




356 

000276 * 




STA.BI 





C 1 5 
cn 

000276 * 

OOO0O4 

000304* 

000000* 


PlRQ.,STA.C , begin 

(QUEUE REQUEST To CONTINUE 

AT 

STA.C 

C 1 ) 
357 

000304* 

042765 

000100 

000010 

SIA.Cl 

1 ” i » — • 

BiC il00.10(R5) 

(Disable apiDne imt 



356 

000312* 

004737 

000406* 



JSP PC.B8STA.2 




359 

000316* 

001 431 




BEQ STA.D 




360 

0OO320* 

016565 

000004 

000004 

Cli 

MOV 4(R5),4(R5) 




361 

000326* 

004737 

000406* 



JSP PC,*«STA,2 




362 

000332* 

001372 




BNE ST, A 




363 

000334* 

016501 

000014 



MOV 14(R5),B1 




364 

000340* 

006101 




POL PI 




365 

000342* 

006101 




POL PI 




366 

O0O344* 

006101 




POL Pi 




367 

000346* 

006101 




POL Rl 




368 

0OO350* 

006101 




POL Pi 




369 

000352* 

042701 

117777 



BIC #117777, Pi 




370 

000356* 

066501 

000004 



ADD 4(PS),P1 




371 

000362* 

010137 

000204* 



MOV P1,P#CMEMBF 




372 

000366* 

162701 

000002 



SUB §2, PI 




373 

000372* 

010137 

000170* 



MOV Rl.PiCOMM 




374 

000376 * 

000137 

O00444* 



JMP PiPOUO 




375 

000402* 




STA.Ol 





tn 

000402* 

104403 

000000* 



END, .BEGIN 

(TCBP ELC set UNEXPECTEDLY 



376 

000406* 

012715 

noOlOO 


STA,2l 

MOV #100. (P5) 

(ENABLE TCBP INT 



377 

00O412* 

1O44O0 




EXIT. 

(RETURN TO MONITOR, 



378 

000414* 




STA.3I 





cn 

00041 4* 

000004 

000422* 

000000* 


PIPQ.,STA,4,BEGIN 

(QUEUE REQUEST TO CONTINUE 

AT 

STA,4 

379 

000422* 

042765 

000100 

000010 

STA,4l 

BiC ilOO,10(P5) 

(Disable apiDne int 



380 

000430* 

042715 

000100 



BIC *100. (PS) 

(DISABLE TCBP INT 



381 

000434* 

032765 

000002 

000014 


BIT *2.14(P5) 

(INITIAL ROUTINE? 



382 

00O442* 

000207 




RTS PC 

(RETURN TO SEQUENCE 



394 

000444* 

004737 

000406* 


ROUOi 

JSP PC>P#STa.2 




385 

000450* 

001032 




BNE ROU0.7 




386 

000452* 

012702 

125252 



MOV tl2S2S2.R2 




3»7 

000456* 

004737 

001226* 



JSP PC.PfCKDATA 




388 

O0O462* 

012737 

000506* 

000176* 


MOV iBOOO,5,P#APIDN 

(INIT FOR CORRECT VECTOR 



389 

000470* 

004737 

001 344* 



JSR PC,P#PEND 




390 

000474* 

1 12765 

000047 

000012 


MOVB »47,12(PS) 

(API LO TO 47 



391 

000502* 

000137 

001114* 



JMP P#WAIT 




392 

393 

000506* 

0052’7 

177456 


ROUO.St 

INC PCOMM 


.... 



XUCAR DEC/Xll SYSTEM EXEPCISEP MODULE MACYU.624 21-AUO-7S 14|50 PAGE 4-2 

XUCAB.Pl t 


(1) 

000512* 

000004 

000520* 

000000* 


PIPQ..ROU0.6,BEGIN 

(QUEUE REQUEST TO CONTINUE 

AT 

BDU0,6 

394 

000520* 

042715 

000100 


R0U0.6I 

BlC #100, (PS) 

(Disable tcbp' int 



395 

000524* 

042765 

000100 

000010 


BIC ilOO.lOIPS) 

(DISABLE APIDNE INT 



396 

O0O532* 

000137 

000542* 



JMP PfPOUl 




397 

O0O536* 

000137 

000320* 


BOU0.7I 

JMP PiST.A 




3QQ 

O0O542* 

004737 

000406* 


ROUl 1 

JSR PC.P#STA,2 




400 

000546* 

ool 373 




BNE P0U0.7 




4ni 

000550* 

012702 

052525 



MOV #52525. R2 




402 

000554* 

004737 

001226* 



JSP PC,P#CKDAIA 




403 

000560* 

012737 

000604* 

000176* 


MOV #R001.5,P#APIDN 

(INIT FOR CORRECT VECTOR 



404 

000566* 

004737 

001344* 



JSP PC.B#PEND 




405 

000572* 

112765 

000047 

000013 


MOVB #47.13(R5) 

(API LI TO 47 



406 

000600* 

000137 

001114* 



JMP P#*rAIT 




4n7 

000604* 

005277 

177360 


BOUl.51 

INC PCOMM 




cn 

000610* 

000004 

000616* 

000000* 


PiPQ.. ROUl, 6 . begin 

(QUEUE REQUEST TO CONTINUE 

AT 

RqUI ,6 

409 

000616* 

042715 

OOOlOO 


ROUl .61 

BiC #100, (P5) 

(Disable tcbp int 



410 

000622' 

042765 

000100 

000010 


BIC »100.10(R5) 

(DISABLE APIDNE INT 



412 

000630* 

004737 

000406* 


ROU2I 

JSR PC,P#STA.2 




413 

000634* 

001032 




BNE P0U2.6 




414 

000636* 

012702 

125252 



MOV #125252. P2 




415 

000642* 

004737 

001316* 



JSR PC,P#WRDATA 




416 

000646* 

012737 

000672* 

000176* 


MOV #B0U2.4,P#AP1DN 

(INIT FOR CORRECT VECTOR 



417 

000654* 

004737 

001344* 



JSP PC.P#PEND 




418 

000660* 

1 12765 

000047 

000002 


MOVB *47,2(RS) 

(API L2 TO 47 



419 

000666* 

000137 

001114* 



JMP PfWAIT 




420 

42_1 

000672* 

005277 

177272 


ROU2.4i 

INC PCOMM 




cn 

f 1 ) 

000676* 

000004 

000704* 

000000* 


PIPQ,,R0U2.5>BEGIN 

(QUEUE REQUEST TO CONTINUE 

AT 

ROU2.5 

472 

000704* 

042715 

000100 


ROU2.5i 

BiC #100, (R5) 

(DISABLE TCBP INT 



423 

O0O710* 

042765 

OOOlOO 

000010 


BIC #100,10(R5) 

(DISABLE APIDNE INT 



424 

000716* 

000137 

000726* 



JMP P#ROUJ 




425 

000722* 

000137 

000320* 


ROU2.6( 

JMP PPST.A 




426 





t 





427 

000726 * 

004737 

000406* 


ROU3( 

JSP PC,P#5TA.2 




428 

000732* 

001373 




BNE POU2.6 




429 

000734* 

012702 

052525 



MOV #52525. R2 




430 

O007 4o * 

004737 

001316* 



JSR PC.PtWRDATA 




431 

000744* 

012737 

000770* 

O0D176' 


MOV iROU3.4,PllAPIDN 

(INIT FOR CORRECT VECTOR 



432 

000752* 

004737 

001344* 



JSP PC.PfPEND 




433 

O00756 * 

112765 

000047 

0000D3 


MOVB i47,3(R5) 

(API L3 TO 47 



434 

000764* 

000137 

001114* 



JMP PiWAIT 




4^5 

4H 

O00770* 

005277 

177 J74 


RnU3.4i 

INC PCOMM 




cn 

C i } 

000774 * 

OCO0O4 

001002* 

noooon ' 


PlPQ.,POU3,5,BECiN 

(QUEUE REQUEST TO CONTINUE 

AT 

C 

a. 

437 

OOl 002* 

042715 

1 no 


,5 ! 

PiC «ino,(P5) 

(Disable tcpp int 



4^9 

001 006 * 

042765 

OOOlOo 

D0D01 0 


PIC »100,10(R5) 

(DISABLE APIONF INT 



439 

001014* 

000137 

('01 024* 



,TMp aiPOM4 
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4A0 

00)070' 00"l37 

onriRn ' 

Pnir3 .6 » 

JMP a»ST.A 



442 

00)024' 005037 

000162' 

P0U4I 

CLR S#TCBP 



443 

00)030* 004737 

000406' 

R0U4.lt 

JSR PC,»iSTA,2 



444 

00)034' 00)371 



B.NE ROU3.6 



445 

00)036' 0)6537 

000004 000164' 


«0V 4tP5)*»tTEMP 



446 

001044' 023737 

O0P162* 000164' 


CMP •«TCBP,8«TEMP 

ITCBP CORRECT? 


447 

001052' 001410 



BEO ROU4.2 

|BP IF YES, 


446 

001054' 013737 

000162* 000056' 


MOV •tTCBP.PtASB 



449 

001062' 013737 

00O164' 000060' 


MOV •#TEMp,9»AWA5 



450 







tn 

00)070' 104405 

OOOOOO* 


DATEP, , begin 

(DATA ERRORIll 


( 1 ) 

45 1 

001074' 012737 

001154* 000176* 

R0U4.2« 

MOV tROU4.3«»tAPtON 

UNIT TOP COPPECT VECTOR 


452 

001102' 004737 

001344* 


J5P PC.OtPEND 



453 

001106' 112765 

000047 000012 


MOVE «47>12(P5) 

lAPI LO TO 47 


454 

O01114' 105765 

OOOOlO 

WAITi 

TSTB 10(R53 

lAPIDNC FLC SETT 


455 

O01120' 100407 



BMI WA.l 

IBR IF YES, 


456 

001122' 105715 



TSTB (R5) 

iTCBP FLG SET? 


457 

001124' 100373 



BPL WAIT 

ibr if no. 


456 

001126' 004737 

000406* 


JSP PC^I«STA.2 



459 

001132* 001006 



BNE WA.2 

IBETTEP BRANCH FOP 

INITIAL rtOUTINl 

460 

001134* 000137 

000402* 


JMP itSTA.O 



461 

001140* 012765 

000100 OOOOlO 

WA.ii 

MOV tlOOdOIRS) 

lENABLE APIONE INT, 


462 

001146' 104400 



EXIT, 

IRETURN TO MONITOR. 


463 

OOllSo* 000137 

000320* 

HA,2i 

JMP BIST. A 



464 

001154* 005277 

177010 

)40U4.3i 

INC fCOMM 



465 

Cl } 

001160* 000004 

001166* OOOOOO' 


PiP0,»R0U4,4,BCGin 

I QUEUE REQUEST TO CONTINUE 

AT RCU4.4 

466 

001166* 042715 

OOOlOO 

R0U4.4i 

BlC #100. CR5) 

iDisable tcbp int 


467 

001172* 042765 

000100 OOOOlO 


BIC flOOflOCRS) 

tOISABLC APIONE INT 


468 

001200* 062737 

000002 000162* 


ADD »2.>ITCBP 

(FINISHED? 


469 

001206* 001310 



BNE R0U4,1 

iBR IF NO, 


470 

001210* 005304 



DEC R4 

(END OF PASS? 


471 

001212* 001003 



BNE ROUA.S 

iBR IF NO, 


472 

001214* 104402 

000206* OOOOOO* 


ENDPS,. START, BEGIN 

(SIGNAL END or PASS, RESUME 

AT 5TAPT 

473 

001222* 000137 

000212* 

P0U4.Si 

JMP PISTA.A 



474 



t 




• 475 

001226* 016565 

000004 000004 

CKDATAI 

MOV 4(R53,4CR5) 



476 

001234* 012703 

000200 


MOV #200, R3 

tlNIT CNT 


477 

001240* OJ3701 

000204' 


MOV #«CMEPBr,Rl 

lINIT PNT 


478 

001244* 020221 


Itl 

CMP R2, tRn + 

(DATA CORRECT? 


479 

001246* 001402 



BEQ 21 

(BR IP YES. 


480 

001250* 804767 

000006 


JSR PC.RPTERR 

(ERROR, 


491 

001254* 005303 


211 

DEC R1 

(DONE? 


4«2 

001256* 001372 



BNE 11 

IBR IF NO. 


493 

001260* 000207 



RTS PC 



464 



1 




485 

001262* 005037 

000050* 

RPTERRt 

CLP tlCSRA 



486 

001266* 005741 



TST -(Rl) 



467 

001270* 010137 

000052* 


MOV R1,B*SBADR 

lADDR OF LOC TESTED. 


488 

001274' 010137 

000054' 


MOV Rl,BtHASAOR 

1 IV n H II 


469 

001300* 010237 

000056* 


MOV R2,B#ASB 

(STORE GOOD DATA 
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4Q0 

001304' 012137 

000060' 


MOV 

(RD'fiflAHAS 

(STORE BAD DATA 


491 








tn 

tn 

492 

4R3 

494 

001310* 104405 

OOOOOO' 


DATER,, begin 

(DATA ERRORM 1 


001314* 000207 



RTS 

PC 



001316* 016565 

000004 

000004 wRDATAl 

MOV 

4(R5),4(RS] 



495 

001324* 012703 

000200 


MOV 

#200, R3 

lINIT CNT 


4«6 

001330* 013701 

000204' 


MOV 

»#CMEMBr,Rl 

llNIT PNT 


497 

"01334* 010221 


Itt 

MOV 

R2. CR1)4 

(WRITE DATA, 


498 

001336* O053O3 



DEC 

R3 

(DONE? 


499 

001340* 001375 



BNE 

It 

(BR IF NO. 


500 

001342* 000207 



RTS 

PC 



501 

001344* 016537 

000014 

000166' PENDt 

MOV 

14(R5),P#TMP 



502 

001352* 042737 

037477 

000166' 

BiC 

#37477, B#THP 



503 

001360' 022737 

140300 

000166' 

CMP 

#140300, i#TMP 

(ANY API breaks 

pending? 

504 

001366' 001402 



BEQ 

PEW.l 

(BR IF NO, 


505 

001370' 104403 

OOOOOO' 


END, 

, .BEGIN 

(UNEXPECTED API 

BREAK pending 

506 

001374' 000207 


PEN. 11 

RTS 

PC 



507 

OOOOOl 



.END 
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ACSB 


onons^R 

ADOP 


000006R 

APIDN 


000176P 

APIDNE 


000200R 

AsR 


000056H 

ASTAT 


000054R 

AWAS 


000060R 

BDCNV 

8 

•••••• G 

BEGIH 


0O0P0''R 

BITO 

8 

000001 

BlTl 

8 

000002 

BITIO 

8 

002000 

RlTlI 

B 

004000 

PIT12 

8 

010000 

8IT13 

8 

02OO0O 

B1T14 

8 

040000 

RIT15 

8 

100000 

BIT2 

3 

000004 

BIT3 

8 

OOOOlO 

SIT4 

S 

000020 

BITS 

8 

000040 

BIT6 

8 

000100 

BIT7 

8 

000200 

BITS 

8 

000400 

BIT9 

8 

OOlOOO 

BREAK, 

S 

104407 

BRl 


000012R 

BR2 


00001 3R 

CKDATA 


001J26R 

CMEMBE 


000204R 

COMM 


000170R 

CSRA 


0O0050R 

OATER, 

8 

104405 

DVIDl 


000014R 

EABITS 

8 

•••••• G 

ENDPS, 

s 

104402 

END, 

8 

104403 

ERPCNT 


000030R 

ERRN. 

8 

104410 

ERROR. 

8 

104404 

EXIT. 

8 

104400 

HICORE 

8 

•••••• G 

INIT 


000022R 

LOCORE 

8 

•••••* G 

MQDNA'I 


OOOOOOP 

MODSP 


000162R 

MSCN. 

8 

104411 

MSG, 

8 

104406 

OACNV 

8 

•••••• G 

OPEN 

3 

000000 

PA8CNT 


000026R 

PC 

■4000007 

pend 


0ei344R 

PEN.l 


001374R 

PIRQ. 

a 

000004 

POPS? 

s 

005726 

POPSP2 

8 

022626 

PRTY 

8 

000000 

PRTYO 

■ 

000000 

PRTYl 

8 

000040 

PRTY2 

a 

OOOlOO 

PRTY3 

■ 

000140 

PRTY4 

a 

000200 

PRTY5 

a 

000240 

PRTY6 

8 

000300 

PRTY7 

« 

000340 

PS 

a 

177776 

PSW 

s 

177776 

PUSH 

3 

005746 

PUSN2 

m 

024646 

OUE. 

8 

104401 

ROUO 


000444B 

ROUo.5 


000506R 

ROUO.6 


000520R 

ROOo.7 


OOOS36R 

ROUl 


000542R 

RO"l .5 


000604R 

ROUl.6 


000616R 

R0U2 


000630R 

R0U2 , 4 


000672R 

ROU2.5 


0007o4R 

RaU 2,6 


000723R 

R0U3 


000726R 

R0U3.4 


000770R 

ROU3.5 


001002P 

POU3,6 


00t02eR 

R0U4 


001024P 

R0U4.1 


001030R 

POU4.2 


001074R 

POU4.3 


001154R 

R0U4.4 


001166R 

R0U4.5 


001222B 

RPTERR 


001362R 

RO 

■4000000 

R1 

■4000001 

R2 

8 ^ 

4000002 

R3 

■4000003 

R4 

■4000004 

RS 

■4000005 

R6 

■4000006 

R7 

■%oooooi 

SBADR 


OOOOS2R 

SP 

■4000006 

spqint 


000024R 

8P51Z 

8 

000040 

SRI 


OOOOUR 

START 


000206R 

STAT 


000020R 

STA.A 


000212R 

STA.B 


000376R 

STA.C 


000304R 

STA.D 


000402R 

STA,2 


0fl0406R 

STA,3 


000414R 

STA.4 


000422R 

ST. A 


000320R 

SVRO 


000032R 

8VR1 


000034R 

SVR2 


000036R 

SVR3 


000040R 

SVP4 


000042R 

SVR5 


000044R 

SVR6 


000046R 

TCBP 


000162R 

TCBPEL 


000172R 

TEMP 


000164R 

TMP 


000166R 

TPX 

8 

OOOOOO 

TRAPX 

8 

000012 

VECTOR 


OOOOIOR 

WAIT 


0011 14R 

MASADR 


000054R 

WA. 1 


001140R 

WA,2 


001150R 

WBUE 

8 

•••••• C 

WRDATA 


001316R 


■ OPlSYeR 


001376 


ERRORS DETECTEDI 0 
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213 

214 

215 

216 
217 
21 fi 

219 

220 
221 
222 

223 

224 

225 

226 
227 

278 

279 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 


.PE“. 


PRODUCT CODtl 
PRODUCT NAMEI 
DATEI 

maintaineri 

AuTHORtsJl 


IDENTiriCATlON 

maindec-u-dxRka-a-d 
XrKAA-DEC/X11 rkii module 
EEB 15. 1973 
DIAGNOSTIC Group 
A, COssETTE 
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266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 
281 


282 

1. 

abstract 

283 



284 



285 


THIS routine performs A WRITE FOUR SECTORS, READ ONE, AND 

286 


A WRITE CHECK qN FOUR SECTORS, LqoKS FpR MqRE- DRIVES 

287 


SELECTED AND IP ANY PERFORMS THE SAME ROUTINE AS ABOVE 

2fl8 


THEN ADVANCES TO THE NEXT FOUR SECTORS AMD 50 ON UMTILL 

289 


THE drives selected HAVE ALL BEEN EXERCISED. 

200 



291 

2. 

requirements 

292 



293 



204 


HARDWAREl RKll DISK CONTROL AND ONE RK02 OR ONE RK03 

295 


STORACEi XRKA module requires 754 WORDS OF STORAGE 

296 



297 



20fl 

3. 

PASS DEFINITION 

209 



300 



301 


ONE PASS OF XRKA MODULE CONSIST OF WRITE, 

302 


READ 1/4TH OF WRITTEN DATA 

303 


AND write check for ALL SELECTED RKo2 OR PK03 

304 


ON line 

305 



306 



307 

4, 

EXECUTION time 

308 



309 



310 


XRKA RUNNING ALONE WITH ONE RK03 ON THE PDP-11/C5 

311 


takes APPROXIMATELY 2 MIN, 38 SEC. FOR ONE PASS 

312 



313 



314 

5 . 

rOMFIGUPATION REQUIREMENTS 

315 



316 



317 


default PARAMETERS* 

318 



319 


DEVADPI 177400. VECtORi 220, BR1I5, DEVCNld 
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320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 


REQUIRED PARAMETERS! NOME 


6. DEVICE/OPTION SETUP 


A. EACH DIsH Drive must have a scratch pack, 

B. SWITCH StECTED DRIVES ON LINE 


7, module operation 


TEST SEaUENCEl 

A. select a dise Drive 

B. WRITE 1024 READ 256 AND WRITE CHECK 
1024 WORDS 

C. DO OTHER DRIVES ON LINE 

0, ADVNCE SECTOR COUNTER BT FOUR 
AND CONTINUE WITH AlCsD 

E. CHECK FOR HIGH CYLINDER AND HIGH DRIVE 

selected 

F. CLEAR DEVICE, END PASSES 

NOTES! XRKA does NOT USE DRIVE 0 IF LOAD MEDIuH 


s, operation options 


MODULE location DVIDI MAY BE CONFIGURED Or CHANGED TO 
INDICATE any drive Or DRIVES OR ALL DISK DRIVES 
UP TO FOUR ( 4 ), 


9. NON stardard Printouts 


ALL PRINTOUTS STANDARD, REFENCE DEC/Xll DOCUMENTATION 
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363 IRKII DISK CONTROLLER INITIALIZATION 

364 


365 

oooooo' 




lOMOO 

<XRKAA >,177400,220,5 

(2) 

000000' 




Module 

140000, XRKAA , 

,177400,220,5,, 

C23 





, TITLE 

XRKAA DCC/Xll 

SYSTEM EXERCISER MODULE 

C23 





.LIST 

BIN 


C2) 

oooooo* 



begini 




(23 

OOOOOO* 

051130 

040513 

020101 MOONAMi 

.ASCII 

/XRKAA / 

1 MODULE name. 

(2) 

000006* 

177400 


ADDRi 

177400+0 

IlST DEVICE ADDR, 

(2) 

000010* 

000220 


VECTOR! 

220+0 


!1ST DEVICE VECTOR. 

(23 

000012* 

240 


BRII 

.BYTE 

PRTY5+0 

!1ST BR -LEVEL, 

(23 

000013* 

000 


BR2i 

.BYTE 

PRTY+0 

|2MD BR LEVEL, 

(23 

000014* 

000001 


DVIDl ! 

+ 1 


IDEVICE INDICATOR 1. 

(23 

000016* 

oooooo 


SRI! 

OPEN 


iswitch register 1 

(23 

000020* 

140000 


8TAT! 

140000 


iSTATUS WORD, 

(23 

000022* 

000162* 


INIT! 

START 


iMODULE START ADDR, 

(23 

000024* 

000162* 


SPOlNTl 

MODSP 


IMODULE STACK POINTER, 

(23 

000026* 

OOOOOO 


PASCNT! 

0 


fPASS COUNTER, 

(23 

000030* 

oooooo 


EPRCNT! 

0 


lERROR COUNTER, 

(23 

000032* 

OOOOOO 


8VR0! 

OPEN 


ILOC TO SAVE RO, 

(23 

000034* 

oooooo 


SVRl! 

OPEN 


ILOC TO SAVE Rl , 

(23 

000036* 

OOOOOO 


SVR2! 

OPEN 


ILOC TO SAVE R2, 

(23 

000040* 

oooooo 


SVR3! 

OPEN 


ILOC TO SAVE R3. 

(23 

000042* 

oooooo 


SVR4i 

OPEN 


ILOC TO SAVE R4, 

(23 

000044* 

oooooo 


SVR5! 

OPEN 


ILOC TO SAVE R5, 

(23 

000046* 

oooooo 


SVR6! 

OPEN 


ILOC TO SAVE R6, 

(23 

00O050* 

oooooo 


CSRA! 

OPEN 


lADDR OF CURRENT CSP, 

(23 

000052* 



SBAORl 



lADDR OF GOOD DATA, OR 

(23 

000052* 

oooooo 


ACSRi 

OPEN 


iContents of CSR, 

(23 

000054* 



WASADRl 



lADDR OF BAD DATA, OR 

(23 

000054* 

oooooo 


ASTAT! 

OPEN 


iSTATUS REG CONTENTS. 

(23 

000056* 

oooooo 


ASB! 

OPEN 


lEXPECTED DATA, 

(23 

000060* 

oooooo 


AWASi 

OPEN 


lACTUAL DATA, 

(23 





.REPT 

SPSIZ 

IHODULE STACK STARTS HERE, 

(23 





.NLIST 



(23 





.WORD 

0 


(23 





.LIST 



(33 





.ENDR 



C2) 

000162' 



MODSP! 




366 

000162* 

016700 

177620 

START! 

MOV 

ADDR,R0 

|RO«177400 

367 

000166* 

010067 

001374 


MOV 

RO,RKDSR 

)RKDSB»177400 

368 

000172* 

005720 



TST 

(Re)+ 

I+2»>R0 

369 

O0O174* 

010067 

001346 


MOV 

ro>rkder 

|RKDER»177402 

370 

000200' 

005720 



TST 

(R0) + 

l+2»>R0 

371 

000202* 

010067 

177642 


MOV 

RO,CSRA 

iCSRA CONTAINS 177404 

372 

000206* 

010067 

001350 


MOV 

R0»RKCSR 

!RKC5R»i77404 

373 

000212' 

105720 



TSTB 

(P0) + 

lINCR, BY 1 

374 

000214* 

010067 

001344 


MQV 

ROiRKCSRH 

!RKCSPH»i774n5 

375 

000220* 

105770 



TSTB 

(R0) + 

lINCP, BY 1 

376 

000222* 

010067 

001330 


MOV 

PO.RKWC 

!BKWC»177406 
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377 

000226 ' 

005770 




TST 

(RP)* 

1 *2s>R0 

378 

000230' 

010067 

00! 324 



MOV 

ROfPFBAR 

|RKBAP»177410 

379 

000234' 

005720 




TST 

(PO) + 

1 ♦2»>R0 

3<n 

000236' 

010067 

001310 



MOV 

RO.RKDAR 

|RKDAR=177412 

341 

000242' 

105720 




TSTB 

tPO)* 

lINCR. BY 1 

3P2 

000244' 

010067 

001304 



MOV 

ROfPPOAH 

fRKDAH«1774l3 

JR3 

000250* 

105720 




TSTB 

tPO)* 

lINCP. BY 1 

344 

000252* 

005720 




TST 

tR0) + 

l*2s>R0 

345 

000254* 

010067 

001270 



MOV 

ro>pkdbr 

|RKDBRbi77416 

3RS 

000260* 

000257 




CCC 


(CLEAR CONDITION CODES 

3117 

000262* 

016700 

177522 



MOV 

VECTOR, RO 


349 

000266* 

012720 

000610* 



MOV 

iPKll, ( 0)4 


3«9 

000272* 

016720 

177514 



MOV 

BP1,(0)'A 


390 

000276* 

016767 

OOOOOOG 

001270 


MOV 

WBUr,T«BUF 

(DATA BUFFER STORAGE 

391 

000304* 

0050*7 

001324 



CLP 

FSTFLC 

1 

392 

O0031 0* 

005067 

001314 



CLP 

DPVS 

f 

393 

000314 * 

005067 

001306 



CLP 

DSKONL 

1 

394 

000320 ■' 

005067 

001244 



CLP 

PKDRV 


395 

000324 * 

005067 

001242 



CLP 

DVIDA 


396 

000330* 

005067 

001276 



CLP 

DR VC NT 

1 

397 

000334* 

012767 

000031 

001240 


MOV 

•31,RKLMT 

> 

399 

000342* 

005000 



DRVj 

CLP 

PO 

(OFFSET TO ACTIVE DISK DRIVE 

399 








(SELECTED 

400 

000344* 

132737 

OOOC02 

000041 


BITS 

t2>BI41 

(LOAD MEDIUM TEST 

401 

000352* 

001410 




BEQ 

It 

(BRANCH IF NOT LOAD MEDIUM 

402 

000354* 

042767 

000001 

177432 


BIC 

•IfOVIDl 

(CLR DEVICE 0 IF SELECTED 

403 

000362* 

005767 

177426 



TST 

DVIDt 

(ARE THERE MORE. DEVICES 

404 

000366* 

001002 




BNE 

It 

(BRANCH IF THERE IS MORE 

405 

000370* 

104403 

oooooo* 



END,, 

BEGIN 


406 

000374 * 

162767 

020000 

001226 

111 

SUB 

t20000>I>PVS 

I 

407 

000402' 

016767 

177406 

001162 


MOV 

BVIDl,DVlDA 

(GET WORK REG, FOB DEVICECS) 

409 

000410* 

042767 

177760 

001154 


BIC 

•I777t0, DVIDA 

(MASK OFF TO 4 DEVICE SELECTIONS 

409 

000416* 

106267 

001150 


4Si 

A8PB 

DVIDA 

(SHIFT RIGHT FOP TEST 

410 

000422* 

103410 




BCS 

2t 

1 

411 

000424* 

005720 




TST 

(PO)* 

(UPDATE OFFSET 

412 

000426* 

062767 

020000 

001174 


ADO 

t20000>DPVS 

(UPDATE DRIVE SELECT ADDRESS 

413 

000434* 

005767 

001132 



TST 

DVIDA 

(APE there MORE DEVICES SELECTED 

414 

000440* 

001426 




BEQ 

3t 

1 

415 

000442* 

000765 




BR 

4t 

1 

416 

000444* 

005267 

001156 


211 

IMC 

DSKONL 

(COUNTING HOW MANY DRIVES SELECTED 

417 

000450* 

062767 

020000 

001152 


ADD 

I20000»DPVS 

(UPDATE 

418 

000456* 

016760 

001146 

001616' 


MOV 

DPVS,ACDBK(RO) 

(LOAD DRIVE SELECTED ADDRESS INTO 

419 








(STORAGE REG, (ACTIVE DISK) 

420 

000464* 

005767 

001144 



TST 

FSTFLC 

1 

421 

000470* 

001005 




BNE 

St 

I 

422 

000472' 

016067 

001616' 

001070 


MOV 

ACDSR(PO), PKDRV 

1 

423 

000500* 

005167 

001130 



COM 

FBTFLG 

I 

424 

000504* 

005767 

001062 


5|l 

TST 

DVIDA 

(ARE WE DONE 

425 

000510* 

001402 




BEO 

3t 

(YES 

426 

000512* 

005720 




TST 

(RO)* 

1 

427 

000514* 

000740 




BR 

4t 

(NO GO BACK t DO MORE 

429 

000516* 

000367 

001106 


3tl 

SWAB 

DRVS 

( 

429 

000522' 

066767 

001102 

001052 


ADD 

drvs,rklmt 

(GET ADDRESS OF HIGH DRIVE SELECTED 

430 

000530* 

000367 

001074 



SWAB 

DRVS 

(REINSTAT DRVS. 
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431 

000534' 

016767 

177254 

OOIOIO 


MOV 

DVIDI, DVIDA 

t 

432 

000542* 

042777 

oooots 

001012 

Bill 

BIC 

tlSftRKCBR 

(CLEAR DsK drive 

433 

000550* 

012767 

043503 

0007t4 


MOV 

•43803, RKFUnCTION iSET UP D8K CONTROL 

434 

000556* 

016777 

001012 

000774 


MOV 

TMBUFftRKBAR 


435 

000564* 

016777 

000754 

0007S4 


MOV 

RKWORDCTftRKWC 

(LENGTH OF TRANSFER 

436 

000572* 

016777 

000772 

000752 


MOV 

RKDRV.RRKDAR 

(INITIALIZE OF TRANSFER 

437 

000600* 

012777 

000103 

000754 


MOV 

ll03,tRKCSR 

(GO man 

439 

000606* 

104400 




EXIT. 


(RETURN TO MONITOR, 

440 

441 





IRKII DISK TEST INTERRUPT LEVEL 

5, 1024 WORD TRANSFERS 

442 

443 

000610* 




RKlli 




cn 

000610* 

000004 

000616* 

oooooo* 


PIRO, 

fSUBSER , begin 

(QUEUE REQUEST TO CONTINUE AT SUBSER 

Cl) 

444 






(»» 



445 

000516 * 

042777 

000100 

000736 

SUBSCRI 

BIC 

•leO.tRKCSR 

(CLEAR INTR ENABLE 

446 

000624* 

105777 

000732 



TSTB 

PRKCSR 

(INTERRUPT VECTOR POINTS HERE 

447 

000630* 

100402 




BMI 

21 

1 

448 

000632* 

000167 

000510 



JMP 

RKERl 

1 

449 

000636* 

005777 

000720 


211 

TST 

PRKCSR 


450 

000642* 

100002 




BPL 

11 

1 

451 

000644* 

000167 

000530 



JMP 

RKER2 

f 

452 

000650* 

122777 

000120 

000674 

111 

CMPB 

•120,tRKDAR 

(DISK AT UPPER LIMIT? 

453 

000656* 

001020 




BNE 

WHO 

(NO 

454 

000660* 

126777 

000716 

000666 


CMPB 

RKLMT,tRKDAH 


455 

000666* 

OOlOl 4 




BNE 

WHO 


456 

000670* 

000167 

000632 



JMP 

ENPASS 


457 

000674* 

016777 

000670 

000650 

RKSTARTiMOV 

rkdrv.rrkdar 

(INITIALIZE DISK-DAR,DAE 

458 

000702* 

016777 

000636 

000646 


MOV 

RKWORDCT.tRXWC 

(LENGTH or TRANSFER 

459 

000710* 

1 16777 

000626 

000644 


MOVB 

RKFUNCTION.tRKCSR (WRITE OR WRITE CHECK TO DISK 

460 

461 

462 

463 

464 

000716* 

1044O0 




EXIT. 


(RETURN TO MONITOR. 

000720* 

017767 

000636 

000656 

WHOl 

MOV 

PRKCSR* FNCNAS 

(GET last Function cmmd. 

465 

000726* 

047767 

177761 

000650 


BIC 

•177761, FhCWAS 

(MASK or other Control bits 

466 

000734* 

026767 

000644 

000644 


CMP 

fncwas.nfnc 

(NAS LAST XFER A WRITE CMMD, 

467 

000742* 

001410 




BEQ 

R8TRT 

(YES BRANCH OFF 6 DO A READ 

468 

000744* 

026767 

000634 

000636 


CMP 

FNCWAS.RFNC 

(WAS LAST XFER A READ CMMD, 

469 

000752* 

001422 




BEQ 

RCHCK 

(YES CO CHECK READ DATA 

47o 

000754* 

026767 

000624 

000630 


CMP 

FNCWAS.WCFNC 

(HAS LAB XFER A WRITE CHCK 

471 

000762 * 

001446 




BEO 

WSTRT 

(YES BRANCH OFF 6 SET 

472 








(UP FOR next pass 

473 

000764* 

042767 

000016 

000550 

RSTRTI 

BIC 

•16, RKFUNCTION 

(GET OLD FUNCTION CMMD. OUT 

474 

000772' 

012767 

1 77400 

000544 


«<ov 

»-256,,RKWORDCT 

t 

475 

001 OOO* 

056767 

000604 

000534 


BIS 

PFNC, RKFUNCTION 

(SET NEXT FUNCTION CMMD, 

476 

001006* 

012777 

001652' 

"00544 


MOV 

•RBUF.PRKBAR 

(SET DISK current ADDRESS 

477 

478 

479 

001014* 

0001*7 

177654 



JMP 

RKSTART 

(RETURN TO KICKOFF NEXT PASS 

4fl0 

001020* 

012700 

001652* 


PCHCKI 

«DV 

•RBuF.RO 

(GET STARTING ADDRESS OF 


4S1 IREAD BUFF AREA 
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482 

001 nJ 4 ' 

0177*2 

*0*400 



''OV 

»256.,P2 

|R2=WORDS TO BE CHCKED 

483 

001030' 

016701 

*0*540 



MOV 

TWPUF»R1 

IRlsWplTC BuF AREA 

484 

001034' 

022021 



CKi : 

CMP 

fR0)4, tRl )♦ 

iCOHPARF DATA WITH BUFFER 

485 

001036' 

001 176 




BNE 

DATER 

iGO REPORT ERROR 

486 

001040' 

005302 




DEC 

R2 

fDEC NO, WORDS CHCK'ED. 

487 

001042' 

001374 




BSC 

CKI 

|NOT DONE RETURN 6 CHECK 

488 








fMORE DATA 

489 

001044' 

012767 

176000 

000472 

WCSIPTI 

MQV 

•176000|RKWOPDCT 1 

490 

001052' 

042767 

000016 

000462 


BIC 

tl6»PKrUMCTION 

(MASK OFF OLD FUNC, CMMD, 

491 

001060' 

056767 

000526 

000454 


BIS 

WCrNC.RKFUMCTION (SET WPITE CHCK MODE 

492 

001066' 

016777 

000502 

000464 


MOV 

TWBUF,BRKBAP 

(DISK HAS WBUF START ADDRESS 

493 

001074' 

000167 

177574 



JMP 

RKSTART 

(RETURN TO KICKOFF NEXT PASS 

494 









495 

001 IPO' 

042767 

000016 

000434 

WSTRTI 

BIC 

•16,PKEUNCTI0N 

(MASK OFF OLD FUNC, CMMD, 

496 

001106' 

056767 

*00474 

000426 


BIS 

wrsc.pKruNCTios 

(SET WRITE MODE 

497 

001114' 

016767 

OOOOOOG 

000452 


«ov 

WBUF.TWBUF 

(GET NEW WRITE BUFF AREA 

498 

001122' 

016777 

*00446 

000430 


MOV 

TKBUr,PPKBAR 

(GIVE DISK NEW WRITE BUF 

499 

0011 30' 

000400 




BP 

UPDATE 

(GO SET UP NEW DISK 

500 

501 

502 

503 








(ADORES 

504 

505 

001132' 

042777 

000016 

000422 

UPDAtEI 

BIC 

•IB.PpKCsp 

(CLEAR DRIVE control LOGIC 

506 

001140' 

1 17767 

000406 

000446 


MOVB 

BPRDAPfEXAM 

(GETTING SECTOR COUNTER 

507 

001146' 

142767 

000360 

000440 


BICB 

•360. EXAM 

(MASK OFF GARBARGE 

508 

001154' 

122767 

000000 

000432 


CMPB 

f O.EXAM 

(ARE ALL 3 BLOCK DONEC12 SECT,) 

509 

001162' 

001064 




BNC 

1* 

(BRANCH IF NOT 

510 

001164' 

042777 

000017 

000360 


BIC 

•IT.PPKDAR 

(REINITIALIZE DISK SECTION COUNTER 

511 

001172' 

016700 

000434 


4St 

MOV 

ORVCNT.RO 

(GET OFFSET VALUE «> Po 

512 

001176' 

106267 

000370 



ASPB 

DVIDA 

( 

513 

001202' 

103045 




BCC 

31 

1 

514 

001204' 

042767 

160017 

000356 

7SI 

BIC 

•160017. PKDPV 

(CLEAR DRIVE SELECT BITS 

515 

001212' 

056067 

001616* 

000350 


BIS 

ACDSK(RO).RKDRV 

(NEW DRIVE SELECTED 

516 

001220' 

062767 

000002 

000404 


ADD 

•2.DRVCNT 

(COUNT THIS DRIVE SELECTED 

517 

001226' 

005767 

000340 



TST 

DVIDA 

( 

518 

001232' 

001043 




BNC 

2t 

(RETURN TO START ANOTHER SEC, 

519 

001234' 

103442 




BCS 

2« 

1 

520 

001236' 

005067 

000370 



CLP 

DRVCNI 

(UPDATE 

521 

001242' 

016767 

176546 

000322 


MOV 

DVlDl. DVIDA 

1 

522 

001250' 

016700 

000356 



MOV 

ORVCNT.RO 

1 

523 

001254' 

106267 

000312 


5tt 

ASPB 

DVIDA 

1 

524 

001260* 

103402 




BCS 

6« 

1 

525 

001262' 

122020 




CMPB 

(RO)*. (R0)4 

( 

526 

001264' 

000773 




BP 

St 

1 

527 

001266' 

056067 

001616' 

000274 

6$l 

BIS 

ACOSK(RO), PKDPV 

1 

528 

001274' 

016767 

176514 

000270 


MOV 

DVIDl, DVIDA 

» 

529 

001302' 

005067 

000324 



CLP 

DRVCNT 

( 

530 

001306' 

062767 

000020 

000254 


ADO 

•20. PKDPV 

(INCR, TRACK ADDP, 

511 

001314' 

000412 




BR 

2t 

» 

532 

001316' 

062767 

000002 

000306 

311 

ADD 

•2.DPVCNT 

(UPDATE 

533 

001324' 

005767 

000242 



TST 

DVIDA 

» 

534 

001330' 

001725 




BCQ 

7$ 

1 

535 

001332' 

000717 




BR 

4$ 

(GO BACK FOP MOPE DISK 
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536 001314' 062767 000004 000226 lt| ADD #4,PKDMV I 

537 001342* 000167 177326 2SI JMP RKStABT I 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 


550 

001 346 ' 

01776? 

000210 

176476 

HKFRl 1 

MOV 

PRKCSR.ACSR 


551 

001 354 ' 

017767 

000166 

176472 


MqV 

PRKDER.ASTAT 


552 






!*«#«• 



cn 

001362' 

104404 

000000' 



ERROR. 

.BEGIN 

(RKll READY NOT UP 

553 

001366' 

04277? 

000016 

000166 


BIC 

•I6.PRKCSR 

1 

554 

001374' 

000167 

177274 



JMP 

RKSTART 

t 

555 









556 









557 









558 

001400' 

017767 

000156 

176444 

RKER2I 

MOV 

pRKCsBf ACsB 


559 

001406' 

017767 

000134 

176440 


MqV 

PRKDER.ASTAT 


560 






!•««*« 



cn 

001414' 

104404 

000000' 



ERROR, 

.begin 

(ERROR flag is UP 

561 

001420' 

042777 

000016 

000134 


bJc"" 

•16.tRKCSR 

t 

562 

OOl 426 ' 

000167 

1 77242 



JMP 

RKSTART 

1 

563 









564 









565 

001432' 

017767 

000124 

1 76410 

DATErI 

MOV 

•pKCSR.CSpA 

(CONTROL and status PEG. 

566 

001440' 

014167 

17641 2 



MOV 

-(Bl).ASB 

(DATE SHOULD BE 

567 

001444' 

014067 

1 7641 0 



MOV 

-(RO).AHAS 

(DATA READ WAS 

568 

001450' 

010167 

1 76376 



MOV 

Rl.SBADR 


5ft9 

001454' 

010067 

176374 



VOV 

RO.NASADR 

1 

570 

001460' 

004767 

OOl 166 



JSR 

PC.R5AV 

(GO SAVE ALL THE REG, 

571 









cn 

001464' 

104405 

oooooo' 



DATER, 

.begin 

(DATA ERRORl 1 1 

572 

001470' 

004767 

001204 



JSP 

PC.PgET 

(RESTORE peg. 

573 

001474 ' 

022021 




CMP 

(BO) + .(Rnw 

(UPDATE R'S 

574 

001476' 

005267 

000134 



INC 

crcnt 

1 

575 

001502' 

022767 

000003 

000126 


CMP 

tS.EPCST 


576 

001510' 

OOl 402 




BED 

IS 


577 

001512' 

*00167 

1 7731 6 



JMP 

CKI 

[RETURN TO CHCK'ING DATER 

578 

001516' 

*05*67 

000114 


1 s : 

CLR 

EPCNT 


579 

*01522' 

*0*187 

1 773 1 6 



JMP 

rtCSTST 

1 


5P0 

5P1 

5R2 

5S3 



> 
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5P4 

001526 ' 

047777 

000016 000026 

ENPASS 1 

BIC 

•16,RpKCSP 

(CLEAR D5K DRIVE 

5P5 

001534* 

1 04402 

000162' OOOOOO' 


endps. 

.START, begin 

(SIGNAL End of pass, resume at STAPT 

5»6 








bP7 

5P8 

001542* 

000000 


PKFUNCTlQNl 

0 

(DISK COMMAND 

5«9 

001544* 

1 760OO 


BKWORDCTi 

•1024. 

(LENGTH OF TRANSFER 

590 

001546* 

oooooo 


RKDERl 

0 



591 

001550' 

000000 


RKDBRI 

0 


(RKll DATA BUFFER 

592 

O01552* 

oooooo 


RKDARl 

0 


(RKll DISK ADDRESS REGISTER 

593 

001554* 

oooooo 


RKDAHt 

0 


(RKll HIGH BYTF OF DISK ADDRESS 

594 

OQl 556' 

oooooo 


RKWCi 

0 


(RKll WORD COUNT REGISTER 

595 

001560 ' 

oooooo 


RKRARl 

0 


(RKll CURRENT ADDRESS REGISTER 

596 

001562' 

oooooo 


RKCSRI 

0 


(RKll STATUS REGISTER 

597 

001564' 

oooooo 


RKCSRHl 

0 


(RKll HIGH BYTE ADDRESS OF CSR 

598 

001566' 

oooooo 


RKOSRI 

0 


(RKll DRIVE STATUS REGISTER 

599 

OOlS'O' 

oooooo 


RKORVI 

0 


(RKll DRIVE SELECTED FOR TEST 

600 

001572' 

oooooo 


DVIDAI 

0 



601 

001574 ' 

oooooo 


TWBUn 

0 



602 

001576' 

000107 


PASSENt 

107 



603 

OOI 6 OO' 

oooooo 


DEVADI 

0 



604 

001602' 

000031 


RKLMTl 

31 

lOSK 

ADDRESS LIMET 

605 

001604' 

oooooo 


FNCMASi 

OPEN 

1 


606 

001606' 

000002 


wrtci 

2 


( 

607 

001610' 

000004 


RFRCl 

4 


( 

608 

001612' 

000006 


WCFNCl 

6 


( 

609 

001614' 

oooooo 


CXAMi 

OPEN 


( 

610 

001616' 

oooooo 


ACDSKI 

0 


(DRIVE SELECTED ADDRESS STORAGE 

611 

001620' 

oooooo 



0 



612 

001622' 

oooooo 



0 



613 

001624* 

oooooo 



0 



614 

001626' 

oooooo 


DSKONLl 

0 


(NO, OF Active dRive* selected 

615 

001630' 

oooooo 


DRVSi 

0 


(HIGHEST DRIVE SELECTED 

616 

001632' 

oooooo 


DRVCNTi 

0 


(DRIVE counter for COMPARASIONS 

617 

001634* 

oooooo 


rsTELCl 

0 


(FIRST DRIVE SELECTED FLAG 

618 

001636* 

oooooo 


ERCNTI 

0 


( 

619 








620 

001640* 

oooooo 


XSROj 

0 


( 

621 

001642* 

oooooo 


X9R1I 

0 


1 

622 

001644* 

oooooo 


XSR2; 

0 


1 

623 

001646* 

oooooo 


XSR3I 

0 


» 

624 

001650* 

oooooo 


XSR4i 

0 


1 

625 








626 








627 








628 








629 

001652* 

000400 


RBuFl 

.BLEW 

256. 

1 

630 








631 








632 








633 








634 

002652* 

010067 

176762 

RSAVi 

MOV 

ro.xsro 

V8AVC REG. 

635 

002656' 

010167 

176760 


MOV 

Rl.XSRl 

1 

636 

002662* 

010267 

176756 


MOV 

R2.X8R2 

I 

637 

002666* 

010367 

178754 


MOV 

R3,XSR3 

f 
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638 

P11 

002672 * 

010467 

176752 

MOV 

R4,XSR4 

t 

639 

002676* 

000207 


RTS 

PC 

1 

640 

641 

642 

643 

644 

002700* 

016700 

176734 

rGEt'i MOV 

XSROfRO 

IRESTDRE rec 

645 

002704' 

016701 

176732 

MOV 

XSRl.Rl 

1 

646 

002710' 

016702 

176730 

MOV 

XSR2,R2 

1 

647 

002714' 

016703 

176726 

MOV 

XSR3#R3 

1 

648 

002720' 

016704 

176724 

MOV 

XSR4.R4 

V 

649 

002724' 

000207 


RTS 

PC 

I 

650 

651 

652 


000001 


.END 





xp'^As nt:r/Yi5 systE' 

exerciser 

Ml 

rr'iLE «ACY11, 

.624 21-AUG.73 14,51 

PACE 2-7 



xrxah ,P1 

1 

■iL TIPLE 









ACDSX 

OOlAlfiP 

ftCSP 


OO0O52P 

ADDP 


000006P 

ASB 


000056R 

AsTAT 

0 0 0 0 b 4 R 

a».as 


000060P 

BDCNV 

a 


BEGIN 


OOOOOOR 

BITO = 


BITl 

a 

000002 

BITIO 

a 

002000 

BITl 1 

= 

0O4000 

BITl? z 

010 0 00 

BlTl 3 

a 

020000 

BIT14 

a 

O-^OOO 

BIT15 

= 

100000 

8IT2 z 

000004 

BIT3 

a 

OOOOlO 

B1T4 

a 

000020 

BITS 

S 

000040 

BITS = 

0O01 OO 

BIT7 

a 

000200 

BITS 

a 

000400 

BIT? 

a 

001000 

BREAK, z 

104407 

BPl 


000012R 

RB2 


00O013R 

BIS 


000547P 

OKI 

001034R 

rsRA 


000050P 

DATER 


001432R 

DATER, 

a 

104405 

DEVAP 

OOIAOOB 

PPV 


000342P 

orvcnt 


001632R 

DPVS 


00] 630P 

dskoml 

00162fiP 

rVIDA 


001572M 

DVIDl 


onooi4P 

FABITS 

a 


ENDPS. z 

104402 

END. 

a 

104403 

FNPASS 


001526R 

ERCNT 


001636R 

errcmt 

0O0O30R 

EPPN. 

a 

104410 

ERROR. 

a 

104404 

EXAM 


001614F 

EXIT. z 

104400 

ENCWAS 


001604R 

FSTFLG 


001634R 

HICOPE 

a 

•••«•• G 

INIT 

0O0022B 

LOCORE 

a 

• ••••• G 

MOONAM 


OOOOOOR 

MDDSP 


0001 52P 

MSGN, z 

104411 

MSG, 

a 

104406 

OACNV 

a 

•••••• G 

OPFN 

a 

OOOOOO 

PASCNT 

00002BR 

PASSEN 


001576R 

PC 

•%000007 

PIRQ. 

a 

000004 

i-OPSP z 

005726 

P0PSP2 

a 

022626 

PRTY 

a 

oooooo 

PPTYO 

a 

OOOOOO 

PRTYI z 

0O0040 

PRTY2 

a 

000100 

PPTY3 

a 

000140 

PRTY4 

a 

000200 

PPTY5 s 

0O024O 

PPTY6 

a 

0O030O 

PRTY7 

a 

000340 

PS 

a 

177776 

PSW z 

177776 

PUSH 

a 

005746 

PUSH2 

a 

024646 

QUE. 

a 

104401 

BBUF 

001652R 

RCHCK 


001020R 

RFNC 


001610R 

RCET 


002700R 

RKBAR 

001560R 

PKCSP 


00t562R 

RKCSBH 


001564P 

PKDAH 


001554K 

rkdap 

001552H 

RKDBR 


001550R 

RXDER 


001546R 

RKDRV 


001570P 

RKDSP 

0O1566R 

PKERi 


OOt346R 

RKER2 


001400R 

RKFUNC 


001542P 

RKLMT 

001602R 

RKSTAR 


000674R 

RKWC 


001556R 

RKWORD 


001544R 

RKl 1 

000610P 

RSAV 


0026S2R 

RSTRT 


000764B 

RO 

a' 

1000000 

Rl zHOOOOOl 

R2 

■«000002 

R3 

■%000003 

P4 

ai 

1000004 

R5 ■%000005 

R6 

■«000006 

R7 

■%000007 

SBADR 


000052R 

Sp z%on0006 

SPOINT 


000024R 

SPSIZ 

a 

000040 

SRI 


000016P 

start 

000162R 

STAT 


000020R 

SUBSER 


000616R 

SVRO 


OO0O32R 

SVPl 

000034R 

SVP2 


000036R 

SVR3 


000040R 

SVR4 


000042P 

SVR5 

000044R 

SVR6 


000046R 

TPX 

a 

OOOOOO 

TRAPX 

a 

O00O12 

twbuf 

001574R 

UPDATE 


001132R 

VECTOR 


OOOOIOR 

WASADR 


000054R 

WBUF z 

•••••• G 

wcfnc 


001612R 

WC8TRT 


001 044P 

WFNC 


001606P 

MHO 

000720R 

WSTRT 


OOllOOR 

XSRO 


001640R 

XSRl 


001642R 

XSR2 

0O1644R 

XSR3 


001646R 

XSR4 


001650R 

• 

3 

002726R 


002726 










ERRORS 

DETECTED! 0 
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XRKAB.PII 

♦XRKAR.XRKAB.PRT-DCXCOM.PI 1 .XRKAB.Pll 
RUN-TTMEi 240 SECONDS 
CORE USED! 4K 



XLPAP DEC/Xll SYPTF'- EXtBCISEp “ODULF. 
DCXCf'’'.Pl : 


'ACyiJ,624 21-AOG-73 14|52 PACE 1 


1 

213 


.PF''_ 


IDCNTiriCATION 


PRODUCT COOEt 
PRODUCT NAME I 
DATE! 

maintaineri 

AUTHORtS)! 


NAINDEC-n-DXLPA-B-D 
XLPAR-DEC/Xl J Lpll MODULE 
JUL, 27, 1973 
DIAGNOSTIC GROUP 
R, E. UNDERWOOD 


COPYRIGHT 1973, DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS, 


XLPAP DEC/Xll SYSTEM EXERCISER NODULE MACYir.624 21.AUC>73 14tS3 PAGE 1>1 

XLPAB.Pll 


1 , ABSTRACT 


XLPA EXERCISES THE LPll PRINTER CONTROL AND AN LPll PRINTER 
or 4 POSSIBLE MODELS. THE BASIC TEST RUNS AN INCREMENTAL 
TEST PATTERN FILLING 300 LINES WITH ALL POSSIBLE PRINTING 

characters and the space. 


2 , requirements 


HARDWARE! LPll LINE PRINTER CONTROL AND ONE LPll LINE PRINTER 
STORAGE! XLpA MODULE REQUIRES 232 WORDS OF STORAGE 


3, PASS DEFINITION 


ONE PASS or XLPA MODULE WRITES AN INCREMENTAL TEST 
PATTERN FOR 500 FULL LINES. 

4. execution time 


XLPA RUNNING ALONE WITH A LPll-FA ON THE PDP-II/O5 
TAKES APPROXMATELY l.S MINUTES FOR ONE PASS, 

5. CONFIGURATION REOUIRMENTS 
DEFAULT PARAMETERS! 

DEVADRI 177514, VECTORlIOO, BR1I4, DEVCNTll, SRli 0 
REQUIRED PARAMETERS! NONE 

6, DEVICE/OPTION SETUP 


A, LOAD LINE PRINTER PAPER, 

B, SWITCH ON LINE 



xLPAf^ Pfr/xn .AYSTr:' exepciseh ’■•od"LE 
XLPAH.Pl 1 


Arvij.f-ZA 71.AUG-73 I4|52 PAGE 2 


7, ‘■□DUI.E OPEBATITN 


TEST SEQtiEWCEi 
A, INITIALIZE LPll CONTROL 

p, generate incrementing character pattern and print, 

C, DOING STEP B UNTIL ALL 500 LINES HAVE BEEN PRINTED, 


fl, OPERATION OPTIONS 


THIS MODULE MAY BE USED FOR 4 MODELS OF THE LPll BY 
SETTING THE SRI OpTlON IN THE CONFIGURE “ODE, 


A, SRll 0 LPll-FA 

B, SRlt 1 LPn>HA 

C, SRll 2 LPll.JA 

D, SRll J IPll-KA 


80 COL, 64 CHAP, 
80 COL. 96 CHAR. 
132 COL, 64 CHAR. 
132 COL, 96 CHAR, 


9, NON standard PRINTOUT 


ALL PRINTOUTS STANDARD, REFERENCE DEC/Xll DOCUMENTATION 


XLPAR DEC/Xll system EXERCISER MODULE MACYll,624 21-AUG.73 14|52 PAGE 3 

XLPAB.Pll 


"00000' IOMOD<XLPAB >,177514,200,4 

OOOOOO* MODULE 140000, XLPAB ,177514,200,4,, 

.TITLE XLPAB DEC/Xll SYSTEM EXERCISER MODULE 
.LIST BIN 



OOOOOO' 




BEGINI 





OOOOOO' 

046130 

040520 

020102 

MODNAMi 

.ASCII 

/XLPAB / 

IMODULE name. 


000006' 

177514 



ADDRi 

17751440 

JlST DEVICE ADDR. 


OOOOlO' 

000200 



VECTOR! 

20040 


1 1ST DEVICE VECTOR. 


000012* 

200 



BRII 

.BYTE 

PRTY440 

IlST BR LEVEL. 


000013' 

000 



RR2I 

.BYTE 

PRTY+O 

I2ND BR LEVEL. 


000014' 

000001 



DVIDii 

*1 


iDEVICE INDICATOR 1. 


000016 ' 

OOOOOO 



SRll 

OPEN 


(SWITCH REGISTER 1 


000020' 

140000 



STATi 

140000 


ISTATUS WORD. 


000022' 

000162' 



INITl 

START 


iMODULE START ADDR, 


000024' 

000162' 



SPOINTj 

MOBSP 


(MODULE STACK POINTER, 


000026' 

OOOOOO 



PASCNTi 

0 


(PASS COUNTER. 


000030' 

OOOOOO 



ERBCNTl 

0 


(ERROR COUNTER. 


000032' 

OOOOOO 



SVROI 

OPEN 


(LOC TO SAVE RO, 


000014' 

OOOOOO 



SVBli 

OPEN 


ILOC TO SAVE R1 . 


000036' 

OOOOOO 



SVR2i 

OPEN 


(LOC TO SAVE P2. 


000040' 

OOOOOO 



SVR3I 

OPEN 


(LOC TO SAVE P3. 


000042' 

OOOOOO 



SVR4I 

OPEN 


(LOC TO SAVE R4, 


000044' 

OOOOOO 



SVRSi 

OPEN 


(LOC TO SAVE P5. 


000046' 

OOOOOO 



SVR6i 

OPEN 


(LOC TO SAVE R6. 


000050' 

OOOOOO 



CSRAi 

OPEN 


(ADDR OF CURRENT CSP. 


000052' 




SBADRi 



(ADDR OF GOOD DATA, or 


000052' 

OOOOOO 



ACSRi 

OPEN 


(CONTENTS OF CSR. 


000054' 




WASADRi 



(ADDR OF BAD DATA, OP 


000054' 

OOOOOO 



ASTATl 

OPEN 


(STATUS REG contents. 


000056' 

OOOOOO 



ASBl 

OPEN 


(EXPECTED Data. 


000080' 

oooooo 



AWASi 

OPEN 


(ACTUAL DATA. 







.RE-PT 

SPSIZ 

(MODULE STACK STARTS hpkf. 







.NLIST 









.WORD 

0 








.LIST 









.ENDR 




000162' 




MODSPI 




352 

000162' 

016700 

177620 


STARTI 

MOV 

ADDR.PO 


353 

000166' 

010067 

177656 



MOV 

RO.CSRA 


354 

000172' 

010067 

000500 



MOV 

RO.LPCS 


355 

000176' 

005720 




TST 

(0) + 


356 

000200' 

010067 

000474 



“OV 

RO.LPDB 


357 

000204' 

016700 

177600 



MOV 

VECTOR, RO 


358 

000210' 

012720 

000340' 



MOV 

• INTER, (0)4 


359 

000214' 

016710 

177572 



MOV 

BRl, (0) 


360 

000220' 

005067 

000460 



CLP 

LINCNT 

( INITIALIZE 

361 

000224' 

005067 

000456 



CLR 

CHACNT 


362 

000230' 

012767 

000036 

000454 


MOV 

'•36,FRST 


363 

000236' 

012767 

000120 

000450 


MOV 

•00. .COLUMN 
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3A4 

000244' 

OI 27 S 7 

000140 

000444 


MOV 

§140, TOP 


3f 5 

000252* 

012767 

0001 37 

000440 


MOV 

§137, TOPI 



000260' 

032767 

OOOOOl 

177530 


BIT 

•l.SRl 

, CHARACTER SET 7 

3P7 

000266' 

001406 




6E0 

11 

1 NO, continue 

3A8 

000270' 

012767 

000177 

000422 


MOV 

§177, TOPI 

1 YES, rix COUNTERS 

3A9 

000276' 

012767 

000200 

000412 


MOV 

1200, TOP 

t 132 COLUMNS 7 

370 

000304' 

032767 

000002 

177504 

Itl 

BIT 

i2,SBl 

371 

000312' 

001403 




BEQ 

21 

t NO, CONTINUE 

372 

000314' 

012767 

000204 

000372 


MOV 

*132., COLUMN 

t YES, EIX COUNTER 

373 

000322' 

012767 

000384' 

000352 

2|l 

MOV 

ipace,next 

1 PICK EIRST ENTRY POINT 

374 

000330' 

012777 

000100 

000340 


MOV 

§100,»LPC8 

1 SET INTERUPT enable 

375 

000336' 

104400 



EXIT. 


IRETURN TO MONITOR, 

376 

000340' 




INTERI 




( 1 3 
cn 

000340' 

00 OOO 4 

000346' 

000000' 


PlRQ,, 

PROCED.BESiN 

JOUEUE REQUEST TO CONTINUE AT PROCED 

C ) ) 
377 
37B 

000346' 

005777 

000324 


1 

PROCCDI 

TST 

PLPC8 

1 IS ERROR BIT SET 7 

379 

000352' 

100002 




BPL 

11 

1 NO, continue 

3R0 

000354' 

000167 

000146 



JMP 

WAIT 

1 YES, GO TO WAIT 

351 

352 
3R3 

000360' 

000177 

000316 


lit 

JMP 

PNtXT 

1 GO TO NEXT ENTRY POINT 

000364' 

012767 

000402' 

000310 

PAGEi 

MOV 

•Line, NEXT 

I Pick next entry point 

384 

000372' 

012777 

000014 

000300 


MOV 

I14,8LP0B 

1 top oe eorm 

385 

386 
3»7 

000400' 

1 04400 




EXIT, 


iRETURN TO MONITOR, 

000402' 

026727 

000276 

000764 

hintt 

CMP 

lzncnt,isoo. 

I DONE THiS RAS5 7 

388 

000410' 

001524 



BCO 

riNi 

1 YES, CO TO EINI 

3P9 

000412' 

005267 

000266 



INC 

LINCNI 

1 NO, PRINT ANOTHER LINE 

390 

000416' 

005267 

000270 



INC 

PMBT 

1 GET STARTING CHARACTER 

391 

000422' 

026767 

000272 

000262 


CMP 

TOPI, ERST 

1 OUT OE characters 7 

392 

000430' 

001003 




BNE 

11 

I NO, CONTINUE 

393 

000432' 

012767 

000037 

000252 


MOV 

•37, ERST 

1 YES, START OVER 

394 

00O440' 

016767 

000246 

000242 

111 

MOV 

ERST, CHAR 

1 PICK EIRST CHARACTER 

395 

O0O446' 

012767 

000454' 

000226 


MOV 

•PRNT,NEXT. 

1 PICK NEXT ENTRY POINT 

307 

000454' 

026767 

000226 

000232 

t 

PRNTi 

cmp 

CMACnT, COLUMN 

1 done ihjs line 7 

398. 

000462' 

001410 




BEQ 

DUN 

1 YES, GO TO DUN 

399 

000464' 

005267 

000216 



INC 

CHACNT 

1 NO, CO AGAIN 

400 

000470' 

004567 

000142 



JIM 

5, CARE 

t GET NEXT character 

491 

000474' 

016777 

000210 

000176 


MOV 

CHAR,8LrDB 

1 PRINT A CHARACTER 

402 

O00502* 

104400 




EXIT, 


iRETURN TO MONITOR, 

404 

000504 * 

012767 

000402' 

000170 

DUNt 

MOV 

•LINE, NEXT 

1 PICK NEXT ENTRY POINT 

405 

000512' 

005067 

000170 



CLB 

CHACNT 

1 CLEAR CHARACTER COUNTER 

406 

000516' 

012777 

000012 

000154 


MOV 

•12,PLPDB 

1 <CR> <LE> 

407 

000524' 

1 04400 




EXIT. 


IRETURN TO MONITOR, 










409 

000526' 

042777 

000100 

000142 

WAlTl 

BiC 

I100,SLPC8 

1 clear interupt enable 

410 

000534' 

016767 

000136 

177306 


MOV 

LPCS,CSRA 

1 SAVE LPCS 

411 

000542' 

017767 

000130 

177302 


MOV 

8LPCS,AC8R 

f SAVE (LPCS) 

Cl) 

000550' 

104404 

000000' 



ERNOM. 

,BEelN 

iprinTEr error condition Encountered ... 


( n I 
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XLPAR.Pll 


413 

000554* 

012701 

177777 



MOV 

•177777, R1 

1 set CLOCK counter 

414 

000560' 




Hi 




cn 

000560' 

104407 

oooooo* 



BREAK 

., begin 

•Temporary return to monitor. 

415 

000564' 

005777 

000106 



TST 

SLPCS 

1 ERROR bit still SET 7 

416 

000570' 

100016 




BPL 

4S 

1 NO, GET OUT 

417 

000572' 

005701 




TST 

R1 

1 YES, WAIT SOME MORE 7 

418 

000574' 

001402 




BEQ 

21 

1 NO, TIME OUT 

419 

000576' 

005301 




DEC 

R1 

1 YES, MORE TIME LEFT 

420 

onoboo' 

000767 




BR 

IS 

1 GO WAIT SOME MORE 

421 

000602' 

016767 

000070 

177240 

2ii 

MOV 

LPCS,CSRA 

1 . SAVE LPCS 

422 

000610' 

017767 

000062 

177234 


MOV 

SLPCS, AC8R 

1 SAVE (LPCS) 

cn 

000616* 

104404 

oooooo* 



ERROR 

,, BEGIN 

•PRINTER ERROR CONDITION STILL EXISTS ,. 

424 

000622' 

104403 

oooooo' 



END,, 

BEGIN 

t 

425 

000626' 

052777 

000100 

000042 

411 

BIS 

1100, SLPCS 

I SET INTERUPT ENABLE 

426 

000634' 

104400 




EXIT, 


IRETURN TO MONITOR, 

428 

000636' 

005267 

000046 


CARCi 

INC 

CHAR 

1 GET NEXT character TO BE PRINTED 

429 

000642' 

026767 

000050 

000040 


CMP 

TOP, CHAR 

1 OUT or characters 7 

430 

000650' 

001003 




BNE 

11 

1 NO, CONTINUE 

431 

000652' 

012767 

000040 

000030 


MOV 

•40, CHAR 

1 TES, START OVER WITH FIRST CHARACTER 

432 

000660' 

000205 



111 

RTS 

R5 

1 RETURN 

434 

000662' 

042777 

oooloo 

000006 

fiNII 

BlC 

1100, SLPCS 

1 clear interupt enable 

435 

000670' 

104402 

000162' 

OOOOOO' 


ENDPS 

,, START, BEGIN 

•SIGNAL END OF PASS. RESUME AT START 

4.17 

000676' 

000000 



LPCSl 

0 


1 LINE PRINTER CONTROL STATUS REG, 

438 

000700' 

000000 



LPDBi 

0 


1 LINE PRINTER DATA BUFFER REG. 

439 

000702' 

000000 



NEXT! 

0 


1 CONTAINS NEXT ENTRY POINT 

440 

000704' 

000000 



LINCNTi 

0 


1 CONTAINS NUMBER OF LINES PRINTED 

441 

000706' 

000000 



CHACNTi 

0 


1 CONTAINS NUMBER OF CHARACTERS PRINTED 

442 

000710' 

000000 



CHARi 

0 


1 CONTAINS CHARACTER TO BE PRINTED 

443 

OO0712' 

oooooo 



ERSTl 

0 


1 IST CHARACTER OF LINE TO BE PRINTED 

444 

000714' 

oooooo 



COLUMNi 

0 


1 NUMBER OP COLUMNS TO BE PRINTED 

445 

000716' 

oooooo 



TOPi 

0 


1 LAST CHARACTER TO BE PRINTED 

44b 

O0O720' 

oooooo 



TOPli 

0 


1 LAST CHARACTER TO BE PRINTED 


417 


44fl 000001 


.END 


BYE 
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XLPAB, 

»CSR 

pii sy“hol table 

0noD52R ADDR 

000006R 

ASB 

OOOOS6P 

ASTAT 


000054R 

AkrAs 

OOOOfeOR 

BDCNV 

a «••••• C 

BEGIN 

OOOOOOr 

BITO 

s 

000001 

BITl 

s 000002 

BITIO 

■ 002000 

BITll 

■ 004000 

B1T12 

B 

010000 

BITj 3 

= 020000 

BIT14 

■ 040000 

BIT15 

a 100000 

BIT2 

S 

000004 

BII3 

= 000010 

BIT4 

■ 000020 

BITS 

■ 000040 

BIT6 

8 

000100 

BIT7 

■ 000200 

BITS 

■ 000400 

BIT9 

a 001000 

BREAK, 

B 

104407 

BRl 

000012P 

BR2 

000013R 

CARE 

000636R 

CHACNT 


000706P 

char 

OOOHOR 

COLUMN 

000714R 

CSRA 

OOOOSOR 

DATER, 

B 

104405 

DUN 

000504P 

DVTDl 

000014R 

EABITS 

a •■•••• C 

ENDPS, 

S 

104402 

END, 

■ 104*03 

ERRCNT 

000030R 

CRRN. 

■ 104410 

ERROR, 

B 

104404 

EXIT. 

s 1O440O 

PINT 

000662R 

FAST 

000712R 

HICORE 

B 


TNIT 

000022R 

TNTCP 

000340R 

LINCNT 

000704R 

line 


000402P 

LOCORE 

■ •••••• G 

LPCS 

0006T6R 

LPDB 

000700B 

MODNAM 


OOOOOOP 

“OPSP 

000162P 

MSGN. 

■ 104411 

MSG. 

■ 104406 

NEXT 


000702P 

QACNV 

■ •••••• C 

OPEN 

a 000000 

PACE 

000364R 

PASCNT 


n 00026 P 

PC 

■4000007 

PIRO, 

■ 000004 

POPSP 

■ 005726 

P0PSP2 

8 

022626 

PRNT 

0004S4R 

PROCED 

000346R 

PRTT 

■ 000000 

PRTYO 

B 

000000 

PRTYl 

■ 000040 

PRTY2 

a 000100 

PRTY3 

■ 000140 

PRTY4 

8 

000200 

PRTY5 

« 000240 

PRIYS 

a 000300 

PRTY7 

■ 000340 

PS 

S 

177776 

PSW 

■ 177776 

PUSH 

■ 00S746 

PUSH3 

■ 024646 

OUE, 

8 

104401 

RO 

■4000000 

*1 

■4000001 

R2 

■4000002 

R3 

■4000003 

R4 

■4000004 

R5 

■4000005 

R6 

■4000006 

R7 

■4000007 

sbaop 

000052R 

8P 

■4000006 

SPOInT 

000024R 

SPSIZ 

B 

000040 

SRt 

000016R 

START 

000162R 

STAT 

000020P 

SVRO 


000032R 

SVRl 

000034R 

SVR2 

000036R 

SVR3 

000040R 

SVP4 


00O042R 

SVP5 

000044R 

SVR6 

000046R 

TOP 

000716R 

TOPI 


000720R 

TPX 

■ 000000 

TRAPX 

■ 000012 

VECTOR 

OOOOIOR 

WAIT 


000526P 

WASADR 000054R 

000722 

errors DETECIEOI 0 

WBUr 

■ »••••• G 


■ 0OO722R 
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.REM_ 


IDENTiriCATlOH 


PRODUCT COOEi 
PRODUCT NAMEi 
DATE l 

MAINTAINERt 
AUTHOR(l) I 


MA INDEC*! t •DXCRA-B-D 
CRA-DEC/Xll CRlt MODULE 
IS JUN 1971 
DIAGNOATIC CROUP 
S, MALLICK 


copyright 1973, DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS, 


XCRAB DEC/Xll SYSTEM EXERCISER MODULE MACYU.S34 ai«AUG*73 14|S2 PACE 2 
XCRAB.Pll 


1. ABSTRACT 


CRA IS AN lOMOD THAT EXERCISES THE CR>U CARD READER, IT READS 
A PRE-PUNCHED alphanumeric DECK PORMING A CHECKSUM FOR EACH CARD 
READ, THE CALCULATED CHECKSUM IS COMPARED AGAINST A KNOWN CKSUM 
AND ANY ERRORS REPORTED ON THE TTY. THE MODULE TESTS BOTH THE 
DIRECT AND ENCODED DATA. 


2, REQUIREMENTS 



HARDWARE! ONE CRll CARD READER WITH CONTROLLER 

ONE PRC-PUNCHED ALPHANUMERIC DECK 

STORAGE! CRA REQUIRES 239 WORDS OP STORAGE 


3, 

PASS DEFINITION 



ONE PASS OF THE CRA MODULE CONSISTS OF READING CARDS UNTIL THE 
INPUT HOPPER IS EMPTY WHICH RESULTS IN READING BON WORDS WHERE 
N«NO. OF CARDS. 

4, 

EXECUTION TIME 



ONE PASS OF CRA RUNNING ALONE ON A PDpli/Os PROCESSOR 
approximately MINUTES (80 CARD DECK) 

TAKES 

5. 

confioutation requirements 



DEFAULT PARAMETERS! 

DEvADRi 177180, VECTORIIIO, 8RH8, DEvCNTI 1 
REQUIRED PARAMETERS! 

NONE 

6. OEVICE/OPTION SET-UP 


A, POWER UP THE READER 

B, LOAD THE ALPHA DECK 

C, DEPRESS RESET 



XCOAH SY5T''- EXtociSf^A ‘■'ODI.'LF'- 

XCPAB .PI 1 


'ACyil.624 21-At'G-7 3 1 4 :52 PAGE 3 


7, I'OPULE OPEPATION 


TEST srOUEWCEl 

A. set up vectors a«id initialize module VAvIABLES 
R. READ A CAPO • ENABLE INTERRUPT 

C. INTERRUPT SERVICE: 

I . ICOUNT COLUMN 

S.irORM CHECKSUMS fDIRECT AND ENCODED) 

J, )IE BO COLUMNS READ: CHECK DATA • REPORT ERRORS 

D, IF HOPPER NOT EMPTY REPEAT B»C 

T. at HOPPER empty fOEE-LTNE) REpORT END OF PASS AND RESTART AT A, 
OTHER ERROR CONDITIONS TESTED FOR AND REPORTED: 

A, COLUMN COUNT 

B. COLUMN DONE RESET BY READING DATA 

IF off-line CONDITION CAN NOT BE CORRECTED MODULE WILL LOOP CON- 
TINUOUSLY - NO end pass printout. 

0. OPERATION OPTIONS 


NONE 

0. NON-STANDARD PRINTOUTS 


NONE: ALL PRINTOUTS HAVE THE STANDARD FORMATS DESCRIBED IN THE 

DEC-Xll DOCUMENT, 
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.LIST SEQ.BIN 



339 




:CR11 DEC/Xll 

EXERCISER 


340 

oooooo' 




lOMOD 

<XCRAB >,177160,230,6 

(2) 

000000' 




MODULE 

140000, XCRAB 

,177160,230,6,, 

t2) 





, TITLE 

XCRAB DEC/Xll 

SYSTEM EXERCISER MODULE 

f ?) 





.LIST 

BIN 


(2) 

OOOOOO' 



begin: 




(2) 

oooooo' 

041530 040522 

020102 

MODNAM: 

.ASCII 

/XCRAB / 

(MODULE name. 

C2) 

000006' 

177160 


ADDR: 

177160*0 

(1ST DEVICE ADDR, 

(2) 

000010' 

000230 


vector: 

230*0 


(1ST DEVICE vector. 

(2) 

000012' 

300 


BRU 

.BYTE 

PRTYStO 

(1ST BR LEVEL, 

(2) 

000013' 

000 


BR2I 

.BYTE 

PRTY*0 

(2ND BR LEVEL, 

(25 

000014' 

000001 


oviDi: 

♦ 1 


(DEVICE INDICATOR 1. 

(2) 

000016' 

OOOOOO 


SRI : 

OPEN 


(SWITCH REGISTER 1 

(2) 





««•»«•# 



(2) 

0017020' 

1 40000 


STAT: 

140000 


(STATUS WORD, 

(25 

000022' 

00O162' 


INIT: 

START 


(MODULE START ADDR, 

(2) 

000024' 

000162' 


spoiNi: 

MODSP 


(MODULE STACK POINTER. 

(2) 

000026' 

OOOOOO 


PASCNTi 

0 


(PASS COUNTER, 

(2) 

000030' 

OOOOOO 


errcnt: 

0 


(ERROR COUNTER, 

(2) 

000032' 

oooooo 


svRo: 

OPEN 


(LOC TO SAVE RO, 

(2) 

000034' 

OOOOOO 


SVRii 

OPEN 


(LOC TO SAVE PI . 

(25 

000036' 

oooooo 


SVR2: 

OPEN 


(LOC TO SAVE R2, 

(2) 

000040' 

oooooo 


SVR31 

OPEN 


(LOC TO SAVE R3. 

(25 

000042' 

oooooo 


SVR4: 

OPEN 


(LOC TO SAVE P4, 

(25 

000044' 

oooooo 


SVR5: 

OPEN 


(LOC TO SAVE P5. 

(25 

000046' 

oooooo 


SVR6I 

OPEN 


(LOC TO SAVE P6. 

(25 

000050' 

oooooo 


CSRA: 

OPEN 


(ADDR OF CURRENT CSH, 

(25 

000052' 



SBAOR: 



(ADDR OF GOOD DATA, OR 

(75 

000052' 

oooooo 


ACSR: 

OPEN 


(CONTENTS OF CSR. 

(25 

000054' 



WA8ADR: 



(ADDR OF BAD DATA, OR 

(2) 

000054' 

oooooo 


ASTAT: 

OPEN 


(STATUS REG CONTENTS. 

(25 

000056' 

oooooo 


ASB: 

OPEN 


(EXPECTED DATA, 

(75 

000060' 

oooooo 


ANAS: 

OPEN 


(ACTUAL DATA, 

(25 





.REPT 

SPSIZ 

(MODULE STACK STARTS HERE. 

(25 





.NLIST 



(2) 





.WORD 

0 


(25 





.LIST 



(35 





.ENDP 



C?) 

000162' 



Moosp: 




341 




ITHIS MODULE TESTS ThE CP-II 

CAPO READER 

342 




t 




343 




1 




344 




V 




345 




I 




346 




1 




347 




1 




348 




1 




349 




1 




350 




1 




351 




t 
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(VECTOR address 230 


354 

O00162 ' 

016705 

1 77620 

START! NOV 

ADDP.RS 

(GET DEVICE ADDRESS 

355 

000166' 

010567 

1 77656 

MOV 

PStCSRA 

(R5 IS CRll OR CMll STATUS REGISTER 

356 

000172' 

016700 

1 77612 

MOV 

VECTOR, RO 

(LOAD DEVICE VECTOR 

357 

000176' 

012720 

000252' 

MOV 

*CPCMll,tO)* 

(SET VECTOR TO SERVICE ROUTINE 

358 

000202' 

016720 

1 77604 

MOV 

BFl,fO)+ 

(SET PRIORITY 

359 

000206 ' 

005067 

000476 

CLR 

CBCKl 

(CLEAR CHECKSUM. 1 

360 

000212' 

005067 

000474 

CLR 

CFCK2 

(CLEAR CHECKSUM-2 

361 

000216' 

005067 

000472 

CLP 

CPCLCT 

(CLEAR READER COLUMN COUNT 

362 

000222' 



RDYWTi 



(1) 

000222' 

104407 

000000' 

BREAK 

,, BEGIN 

(TEMPORARY RETURN TO MONITOR. 

363 

000226' 

032715 

000400 

BIT 

•400, (RS) 

(TEST CR1 1 READY BIT 

364 

000232' 

001404 


BEQ 

1* 

(NO GO TRY AGAIN 

365 

000234' 

005301 


DEC 

R1 


366 

000236' 

001371 


BNE 

RDYWT 


367 

000240' 

104403 

000000* 

END.t 

BEGIN 

1 

368 

000244' 

012715 

000101 

111 MOV 

•101, (RS) 

(START READ, ENABLE INTERRUPT 

369 

000250' 

104400 


EXIT. 


(RETURN TO MONITOR, 


370 

371 

372 

373 IINtCRPuPT service ROutIW for card reader 


374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

000252' 

000254' 

000260' 

000262' 

000264' 

000270' 

000276' 

000304' 

000306' 

000310' 

010546 

016705 

105715 

100026 

005267 

066567 

066567 

105715 

100012 

012605 

177564 

000424 

000002 

000004 

000412 

000406 

CRCMlli 

MqV 

MOV 

TSTB 

BPL 

INC 

ADD 

ADD 

TSTB 

BPL 

MOV 

RS«-(R6) 

SVRS.RS 

(RB) 

CRCHKl 

CRCLCT 

2(RS),CRCK1 

4(R5),CRCK2 

(RS) 

NXCOL 

(RS)4,RB 


(SAVE R5 here used AS CONTROL PEG 

(MOVE SAVED RS INTO RS 

(CHECK COLUMN READY FOR READING 

(BRANCH IF ALREADY READ 

(COUNT NUMBER OF COLUMNS 

(ADD DATA TO CHECKSUM 1 

(ADD ENCODED DATA TO CHECKSUM 2 

(CHECK COLUMN DONE 

(BRANCH IF DONE 

(RESTORE R5 

(1) 

000312' 

000004 

000320* 

000000^ 


PiRQ,, 

IS.BEGJM 

REQUEST 

TO Continue at i $ 

3fl5 

000320' 

004767 

000066 


Hi 

jsR 

R7,CRSUB 


(READING DATA DjDN'T ClEAR COLUMN DONE 

cn 

000324' 

104404 

000000' 



ERROR. 

,BE(;IN 

(COLUMN 

DONE 

( ] ) 
3fl7 

000330' 

000167 

000256 



JMP 

CRCHK4 


(START NEW CARD 

388 

000334' 

012605 



NXCOLl 

MOV 

(R6)4,RS 


(RESTORE R5 

389 

000336' 

000002 




RTI 



(RETURN 

390 

00O340' 

012605 



CRCHKl i 

MOV 

(R6)4,R5 


(RESTORE R5 

C J) 

000342' 

000004 

000350' 

OOOQOO' 


PlRQ,» 

It, BEGIN (QUEUE 

REQUEST 

TO CONTINUE AT IS 

392 










393 

000350' 

032715 

040400 


Ul 

BIT 

•40400, (RS) 


(CHECK FOR CARD DOVE 

394 

000354' 

001527 




BEQ 

CRCHK2 


(BRANCH IF CARD NOT DONE 

395 

O0O356' 

022767 

000120 

000330 


CMP 

•80., CRCLCT 


(CHECK FOR EIGHTY COLUMNS 

396 

000364' 

001422 




BEO 

CRl 


(BRANCH IF OK 

397 

000366' 

022767 

000050 

000320 


CMP 

•40., CRCLCT 


(40 COLUMNS 

398 

000374' 

001413 




BEQ 

CRO 


(BRANCH TO 40 COLUMN CHECK 
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399 

000376' 

004767 

000010 


JSR 

R7.ERSUB 



400 



000000* 






(1) 

OOO4O2' 

104404 


error,. 

begin 

(Column 

COUNT 

( 1 ) 
4^1 








(TOTAL NUMBER Of COLUMNS READ NOT 80 OR 40 

402 








(MOST PROBABLY NO CARDS IN READER 

403 

000406' 

000167 

000200 


JMP 

CRCHK4 


(START NEW CARD 

404 

000412' 

010567 

177432 

ERSUBI 

MOV 

RB.CSRA 

(MOVE STATUS REG, ADDRESS 

405 

000416' 

011567 

177430 


MOV 

(R5),ACSR 


(MOVE STATUS REG, C0NTECT5 

406 

407 

408 

000422' 

000207 



RTS 

R7 



000424' 

012715 

000101 

CR0( 

MOV 

•101, (R5) 


(RESTART READER FOR SECOND CARD 

409 

410 

000430' 

104400 



EXIT. 


(RETURN 

To Monitor, 

41 1 
412 

000432' 

026767 

000246 000250 

CRll 

CMp 

CR8UM1,CRCK1 


(CHECK for correct ALrHA CArD IMAGE SU" 

413 

000440* 

001420 



BEQ 

CRCONT 


(BRANCH IF CORRECT 

414 

000442' 

012767 

000704' 177402 


MOV 

•CRSUMl,8BADR 


(GOOD CHECKSUM ADDRESS 

415 

000450' 

016767 

000230 177400 


MOV 

CRSUNl, ASB 


(GOOD CHECKSUM 

416 

000456' 

012767 

000710' 177370 


MOV 

•CRCRl, NA8ADR 


(ADDRESS OF BAD CHECKSUM 

417 

418 

cn 

O0P464' 

016767 

000220 177366 


MOV 

CRCKl, ANAS 


(CHECKSUM AS NAS 

0004’2' 

104405 

000000* 


dater!! 

begin 

(DATA ERROR! ii 

419 








(CARD IMAGE CHECKSUM INCORRECT 

420 

000476' 

000167 

000110 


JMP 

CRCHK4 


(START NEW CARD 

421 

000502' 

026767 

000200 000202 

CRCONTi 

CMP 

CRSUM2,CRCK2 


(CHECK FOR CORRECT ALPHA ENCODED SUM 

422 

000510' 

001420 



BEQ 

RIOi 


(BRANCH IF CORRECT 

423 

000512' 

012767 

000706' 177332 


MOV 

•CR8UM2,SBADR 


(GOOD CHECKSUM ADDRESS 

424 

O00520' 

016767 

000182 177330 


MOV 

CR8UM2, ASB 


(GOOD CHECKSUM 

425 

000526' 

012767 

000712' 177320 


MOV 

•CRCK2, HA8ADR 


(BAD CHECKSUM ADDRESS 

426 

000534* 

016767 

000152 177316 


MOV 

CRCK2, anas 


(BAD CHECKSUM 

427 









cn 

cn 

428 

000542' 

104405 

000000' 


DATER.. 

begin 

(DATA ERRORllt 








(ENCODED CHECKSUM INCORRECT 

429 

000546' 

000167 

000040 


JMP 

CRCHK4 


(GET NEW CARD 

430 

000552' 

032715 

000400 

R1G1( 

BIT 

•400, (RS) 


(CHECK OFF-LINE (BIT 1} 

431 

000556' 

001415 



BEQ 

CRCHK4 


(BRANCH IF NOT SET 

432 

000560' 

042715 

000100 


BIC 

•100, (P5) 


(CLEAR ENABLE INTERRUPT 

433 

000564' 

104402 

000162' 000000' 


ENDPS., 

START, BEGIN 

(SIGNAL 

END OF PASS, RESUME AT START 

434 








(IF READER OFF-LINE, DON'T START UP AGAIN 

435 








(END OF DECK 

436 

000572' 

032715 

000400 

RIG21 

BIT 

•400, (R5) 


(TEST FOR ON-LINE 

437 

000576' 

001002 



BNE 

I* 


(REPORT ERROR 

438 

439 

cn 

cn 

cn 

440 

OO^SOO' 

00O604' 

000167 

177356 

1${ 

JMP 

START . 


(RESTART IF ON LINE 

000604' 

1 04404 

oooono' 


ERROR. , 

.begin 

(RELOAD 

deck - DEPRESS RESET 

000610' 

000770 



PR 

BIG2 


(LOOP Til on line 


441 

442 000612' 005067 000076 

443 OOO6I6' 005067 000066 


CRCHX4I CLP 
CLP 


CpCLCT 

CRC51 


(CLEAR COLUMN COUNT 
(CLEAR checksums 
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444 

(100622 

' 005067 

O00064 

CLP 

CRCK2 



445 

00O626 

* 012715 

000101 

MOV 

»101. (R5) 


ICLEAR interrupting condition, restart reader 

446 

000632 

• 104400 


EXIT. 


fRETURN 

TO MONITOR. 

447 

0006 34 

• 005715 


CPCHK2I TST 

(R5) 


iCHECK BIT 15 

446 

000636 

• 10O011 


BPL 

CRCHK3 


iBRANCH IP NOT SET 

449 

000640 

' 032715 

000400 

BIT 

t400> (PS) 


iCHECX OEE-LINE (BIT 83 

450 

00O644 

' 001362 


BNE 

CRCHK4 


IBR IF SET 

451 

000646 

• 004767 

177540 

JSP 

rt.ersub 



452 




1 •««•« 




C 1 3 

000652 

* 1 04404 

000000' 

ERPOR, 

.begin 

IPALCE 

ERROR 

453 







(ERROR BIT WAS SET, OThERS WEREN'T 

454 

000656 

• 000167 

177730 

JMP 

CRCHK4 


(GET NEW CARD 

455 

000662 

' 032715 

002000 

CRCHK3I BIT 

•2000.(RS) 


(CHECK BIT 10 

456 

000666 

• 001351 


BNE 

CRCHK4 


(BRANCH IE SET 

457 

000670 

• 00*767 

177516 

JSR 

R7.CRSUB 



(13 

000674 

• 104404 

000000' 

ERROR. 

iBEclN 

iealce 

interrupt 

459 




1* 



(NO interrupting Bits were set 

460 

000700 

' O00167 

177706 

JMP 

CRCHK4 


(GET NEW CARD 

461 

000704 

' 067443 


CRSUMli «7443 



(DESIRED TOTAL FOR ALPHANUMERIC .CARD-IMAGE DATA 

462 

O00706 

* 014173 


CRaUM2l 14173 



(DESIRED TOTAL FOR ALPHANUMERIC ENCODED DATA 

463 

000710 

' 000000 


CRCKlI 0 



(RUNNING CHECKSUM FOR CARD IMAGE 

464 

000712 

' 000000 


CBCKai 0 



(RUNNING CHECKSUM FOR ENCODED DATA 

465 

000714 

' ponooo 


CRCLCTi 0 



(CARD READER COLUMN COUNT 

466 


000001 


.END 
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symbol 

TABLE 






ACSR 


000052R 

ADDR 


000006 R 

ASB 


OOOOS6R 

ASTAI 


000054R 

AWAS 


000060R 

PDCNV 


•••«•• G 

BEGIN 


OOOOOOR 

BITO 


000001 

RITl 

B 

000002 

BITlO 


002000 

BITll 

a 

004000 

BIT12 


010000 

RITl 3 

B 

020000 

PIT14 


040000 

BITIS 

a 

100000 

BIT2 


000004 

RIT3 

s 

OOOOlO 

RIT4 


000020 

BITS 

a 

000040 

BITS 


000100 

RIT7 

s 

000200 

PITS 


000400 

BIT9 

a 

001000 

BREAK. 


104407 

RRl 


000012R 

BP2 


000013R 

CRCHKl 


00034eR 

CRCHK2 


000634R 

CRCHKa 


000662R 

CRCHK4 


000612R 

CRCKl 


000710R 

CRCK2 


000712R 

CRCLCT 


000714R 

CRCMll 


0002S2R 

CRCONT 


000502R 

CRSUMl 


000704R 

CBSUMJ 


0007o6R 

CRO 


000424R 

CRl 


000432R 

CSRA 


OOOOSOR 

DATEP. 

X 

104405 

DVIDl 


000014R 

EABITS 

a 

•••••• G 

ENDPS. 

B 

104402 

END. 

3 

104403 

ERPCNT 


000030R 

ERRN, 

a 

104410 

ERROR. 

a 

104404 

'•RSUB 


000412R 

EXIT. 

a 

104400 

HICORE 

a 

G 

INIT 


000022R 

LOCOPE 

= 

*«*••• G 

MODNAM 


OOOOOOB 

MODSP 


000162R 

M5GN. 

a 

104411 

MSG, 

s 

104406 

NXCOL 


000334R 

(3ACNV 

a 

•••••• G 

OPEN 

a 

000000 

PASCNT 


000026R 

PC 

■4000007 

PIRQ. 

a 

000004 

POPSP 

a 

00S726 

PDPSP2 

= 

022626 

PRTY 

s 

000000 

PRTYO 

a 

000000 

PRTTl 

a 

000040 

PRTY2 

s 

OOOlOO 

PPTY3 

8 

000140 

PRTY4 

a 

000200 

PRTY5 

a 

000240 

PRTY6 

s 

000300 

PRTY7 

a 

000340 

PS 

a 

17777S 

PBW 

a 

177776 

PUSH 

a 

005746 

PUSH2 

a 

024646 

OUE, 

a 

104401 

RDYWT 


000222R 

RIGl 


000552R 

RIG2 


000572R 

RO 

■4000000 

R1 

■4000001 

P2 

S! 

A0O0O02 

R3 

■4000003 

R4 

■4000004 

R5 

■400000S 

R6 


A000006 

P7 

■4000007 

SBADR 


OOOOS2R 

8P 

■4000006 

spniNT 


000024R 

SPSIZ 

8 

000040 

SRI 


000016R 

START 


000162R 

STAT 


ooon 20 R 

SVRO 


000032R 

SVRl 


000034R 

8VR2 


000036R 

SVR3 


000040R 

SVR4 


000042R 

SVR5 


000044R 

svRe 


000046R 

TPX 

X 

000000 

TRAPX 

a 

000012 

VECTOR 


oeooiOR 

WASADR 


0O0OS4R 

WBUF 

= 

G 

. 

a 

000716B 








ooo’ie 


ERpnps DETECTfDl 0 
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1 , abstract 


rpA TS AN lONOn THAT EXERCISES UP TO EIGHT 8-BIT SYNCHRONOI'S 
LINE interfaces (DPll) PY TRANSMITTING A STANDARD 
pinary count PATTERN USING THE MAINTENANCE MODE FEATURE, THE 
RECEIVED DATA IS COMPARED WITH THE TRANSMITTED DATA AND ANY ERRORS 
ARE REPORTED VIA THE CONSOLE TTY, ALL AVAILABLE INTERFACES 
fUP TO 8) ABE ACTIVATED AND RUNNING SIMULTANEOUSLY. 

2, REQUIREMENTS 


HARDWARE! DPll ASYNCHRONOUS INTERFACE 
STOrAGEi OPA requires 524 WORDS OF STORAGE 

3, PASS DEFINITION 


ONE PASS OF THE DpA MODULE CONSISTS OF TRANSMITTING AND RECEIVING 
128008 8-BII CHARACTERS (TOTAL! 

4, EXECUTION TIHE 


DPA running alone ON A PDPII/Os PROCESSOR TAKES APPROXIMATELY 
... MINUTES TO COMPLETE ONE PASS. 

S. CONFIGURATION PARAMETERS 


DEFAULT PARAMETERS! 

DEVAOPI 174770, vECtOR|440, BR1|5, BR2I5. DEvCNtII 
REQUIRED PARAMETERS! NOME 


6. DEVICEXOPTION SETUP 


NONE! NO DEVICE IS REQUIRED IN MAINTENANCE MODE 


XDPaB DEC/Xll SYSTEM EXERCISER MODULE MACYn.624 21-AUG-73 14|53 PaGE 3 

XDPAP, PI 1 


7, MODULE OPERATION 


TEST SEQUENCE! 

A, TEST UP TO 8 POSSIBLE DEVICES FOR SELECTION 
P. STORE THE DEVICE NO, OF DEVICES TO BE TESTED AND SET UP THE 
VECTORS FOR THESE DEVICES 

C. TURN ON RECEIVER INTERRUPT ENABLE, TRANSMITTER INTERRUPT 
ENABLE, AND MAINTENANCE MODE FOR ALL ACTIVE DEVICES. 

D. INITIAL TRANSMITTER INTERRUPT SERVICEi 

1. ) TEST FOR false INTERRUPT (READY (0))i REPORT ERRORS 

2. ) OUTPUT NEXT CHARACTER TO EACH ACTIVE DEVICE 

3.3 RETURN TO MONITOR TO WAIT FOR RECEIVER INTERRUPT, 

E. RECEIVER INTERRUPT SERVICEl 

1.3 TEST FOR FALSE INTERRUPT (DONE (0)3) REPORT ERRORS 

2.3 COMPARE INPUT/OUTPUT DATA) REPORT ERRORS 

3. ) RETURN TO MONITOR TO WAIT FOR TRANSMTTTEP INTERRUPT 

F. REPEAT D AND E UNTIL 1 2800 . (TOTAL 3 CHARACTERS HAVE BEEN 
PROCESSED 

G. AT END OF PASS TORN OFF ALL ACTIVE DEVICES AND RESTART AT B 
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342 .LIST SCO, BIN 

343 I BET UP VECTOP tRETURN ADORESS(PCn PC « INTR 5ERV, AREA. 

344 


345 

000000* 





tOMOD 

<XDPAB >.174770,440.5.5 

C3] 

000000* 





module 

140000. XDPAB 

,174770.440,5,5. 

C2) 






.TITLE 

XDPAB DEC/Xll 

SYSTEM exerciser MODULE 

(2) 






.LIBT 

BIN 


( 7 ) 

000000* 




BECINI 




t2) 

000000* 

042130 

040520 

020102 

MODNAMi 

.ASCII 

/XDPAB / 

(MODULE NAME, 

(2) 

000006* 

174770 



ADDRi 

174770*0 

»1ST DEVICE ADDR, 

(2) 

000010* 

000440 



VECTOR 1 

440*0 


IlST DEVICE VECTOR, 

(23 

000012* 

240 



BRII 

.BYTE 

PRTT5*0 

IlST BR LEVEL, 

(23 

000013* 

240 



BR2| 

.BYTE 

PRTY5*0 

|2ND BR LEVEL, 

(23 

000014* 

000001 



OVIOll 

♦ 1 


(DEVICE INDICATOR 1, 

(23 

000016* 

oooooo 



SRII 

OPEN 


(SWITCH REGISTER 1 

C2) 

000020* 

140000 



BTATi**' 

140000 


(STATUS WORD. 

(23 

000022* 

000162* 



INITi 

START 


(MODULE START ADDR, 

(23 

000024* 

000162* 



SPOlNTi 

MODBP 


(MODULE STACK POINTER, 

(23 

000026* 

OOOOOO 



PABCNTl 

0 


(PASS COUNTER. 

(23 

000030* 

OOOOOO 



ERRCMTl 

0 


(ERROR counter. 

(23 

000032* 

OOOOOO 



avRoi 

OPEN 


(LbC TO SAVE RO, 

(23 

000034* 

OOOOOO 



SVRII 

OPEN 


(LOC TO SAVE Rl, 

(23 

000036* 

OOOOOO 



8VR2| 

OPEN 


(LOC TO SAVE R2, 

(23 

000040* 

OOOOOO 



SVR3I 

OPEN 


(LOC TO SAVE R3. 

(23 

000042* 

oooooo 



avR4i 

OPEN 


(LOC TO SAVE R4. 

(23 

000044* 

oooooo 



SVRSi 

OPEN 


(LOC TO SAVE R5. 

(23 

000046* 

OOOOOO 



SVR6t 

OPEN 


(LOC TO SAVE R6. 

(23 

000050* 

oooooo 



CSRAi 

OPEN 


(ADDR or CURRENT CSR, 

(23 

000052* 




SBADRI 



(ADDR or GOOD DATA. OR 

(23 

000052* 

oooooo 



ACSRi 

OPEN 


(CONTENTS or CSR, 

(23 

000054* 




WABAORi 



(ADDR OF BAD DATA. OR 

(23 

000054* 

oooooo 



ASTATl 

OPEN 


(STATUS REG CONTENTS, 

(23 

000056* 

oooooo 



ABBi 

OPEN 


(EXPECTED DATA, 

(23 

000060* 

oooooo 



AHASI 

OPEN 


(ACTUAL DATA. 

(23 






.REPT 

SPSIZ 

(MODULE STACK STARTS HERE, 

(23 






.NLIST 



(23 






.WORD 

0 


(23 






.LIST 



(33 






,endr 



(23 

000162* 




MODSPi 




346 

000162* 

005767 

177626 


STARTI 

TST 

DVIDI 

(Check Any dpn's on line 

347 

000166* 

001002 




BNE 

11 

(YES 

348 

000170* 

104403 

OOOOOO* 



END. .BEGIN 

t 

349 

000174* 

016767 

177614 

001764 

111 

MOV 

DVlDl.DVIDA 


350 

000202* 

016701 

177602 



MOV 

VECTOR, Rl 

(Rl B VECTOR ADDRESS 

351 

000206* 

012702 

002020* 



MOV 

•LINKER, R2 

(R2 * link( jsr table with offset 

352 

000212* 

012767 

000001 

001740 


MOV 

•l.PNTR 

(BET UP PNTR TO TEST DEVICE ON LINE 

353 

000220* 

036767 

001734 

177566 

261 

BIT 

PNTR.DVIDl 

(TEST IS THIS DPll ON LINE 

354 

000226* 

001420 




BEB 

31 

(NO GO CHANGE DP ADDR 4 TRY AGAIN 

355 

000230* 

010221 




MOV 

R2. (RD* 

(Set up Vector return adppess(rcv3 
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356 

000232' 116721 

177554 



“□VP 

PRl, CRl 3* 

ISET UP VECTOR PRIORITY (RCV3 

357 

000236' 105721 




TSTB 

CRD* 

IlNCR, POINTER 

358 

000240' 062702 

000006 



ADD 

• 6,P2 

lUPDATE NEW LINK ADDRESS 

359 

000244' 010221 




“OV 

R2»(Rn* 

iSET UP VECTOR RETURN ADDRESS (XMT' 

360 

000246' 116721 

177540 



MOVB 

PRl»(Rn* 

jSET UP VECTOR PRIORITY IXMT) 

361 

000252' 105721 




TSTB 

(RD* 

>INCR, POINTER 

362 

000254' 062702 

000006 



ADD 

«6.R2 

lUPDATE NEW LINK ADDRESS 

363 

000260' 106367 

001674 


41 1 

ASLB 

PNTR 

iSET UP FOR new device COMPARE 

364 

000264' 103406 




BCS 

STARTI 

iHAVE WE TESTED FOR ALL ON LINE 

365 







1 DEVICES 

366 

000266' 000754 




BR 

21 

INOT DONE GO DO MORE 

367 

O0O270' 062701 

000010 


311 

ADD 

•10>R1 

lUPDATE TO NEW VECTOR ADDRESS 

368 

000274' 062702 

000014 



ADD 

*14, R2 

lUPDATE TO NEW LINK ADDRESS 

369 

000300' 000767 




BR 

48 

lOO TEST FOR NEXT DEVICE ON LINE 

370 








371 

372 




1 this 

CODE WILL CLEAR ALL OE 

the write buffer area 

37 3 
374 

000302' 012767 

000147 

001654 

STARtI I 

MOV 

iie3,,CNT8e 

icount required to go thru 

375 







(ALL 88 DATA STORAGE BUFFER 

376 

000310' 012703 

001500' 



MOV 

IDPLIN,R3 

1 STARTING ADDRESS OF 

377 







1 DATA BUFFER LOCATIONS, 

378 

000314' 005023 



111 

CLR 

(R3)4 

ICLEAR DATA BUFF REG 

379 

000316' 005367 

001642 



DEC 

CNTSO 

lARE THERE MORE TO CLEAR? 

380 

000322' 001374 




BNE 

18 

INO GO BACK A DO THE REST 

381 

382 




1 THIS 

CODE hill select WHICH 

LINES (<1I8>) HAVE 

383 




1 BEEN 

SELECTED 

FOR TEST 6 TRANSMIT SYNC TO START 

384 




1 TESTING ALL LINES, 


385 








386 

000324' 012767 

000010 

001640 

INTI 

MOV 

810,COUNT 

ISET COUNT VALUE 

387 

000332' 016701 

177450 



MOV 

ADDRtRl 

|R1»174770 

388 

000336' 012702 

001520* 



MOV 

tDVADl,R2 

lR2aDVADl ADDR. 

389 

000342' 012703 

001500' 



MOV 

8DPLIN,R3 

iLINE BUFFER POINTER 

390 

000346' 012704 

001620^ 



MOV 

8DPLIN1,R4 

ISTART OF LINE BUFF 

391 

000352' 010122 



111 

MOV 

Rl» CR2)4 

IDVADXbDEVICE ADDR, CODE 

392 

000354' 010423 




MOV 

R4> (R3)4 

iBUFF POINTER HAS START OF LINE 

393 







IBUFF STORAGE 

394 

000356' 062701 

177770 



ADD 

8-10. R1 

lUPDATE 

395 

000362' 062704 

000020 



ADD 

820>R4 

lUPDATE 

396 

000366' O05367 

001600 



DEC 

COUNT 

ICNT DOWN 

397 

000372' 001367 




BNE 

18 

iNOI DONE CO BACK FOP “ORE 

398 








399 








400 

000374' 005067 

001570 


START2i 

CLR 

NODvTS 

ICLEAR NO. OF LINE TFSTFO 

401 







IREG, 

402 

000400' 016701 

177402 



MOV 

ADDR,R1 

ICET DEVICE ADDRESS 

403 

000404' 016702 

177376 



MOV 

ADDR,R2 

IXMT CSR ADDRESS IN R2 

404 

000410' 062702 

000004 



ADD 

i4»R3 

|R2»XMT CSR REGISTER 174XX4 

405 

000414' 012700 

001541' 



MOV 

ILNSYNUltRO 

ISET UP RO TO POINT TO LNSYN LOC, 

406 

000420' 012703 

001560' 



MOV 

#LNCNT1,RI 


407 

000424' 012767 

000001 

001526 


MOV 

iliPNTR 

ISET PNTR PEG POINTER TO 

408 







1 1ST DEVICE ON LINE 

409 

000432' 036767 

001522 

177354 

Dii 

BIT 

PNTR,DVIDl 

iTEST IS THIS DEVICE ON LINE 
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410 

000440' 

001444 




BEQ 

Bl 

|Nb GO UPDATE ADDRESS 

411 

000442' 

112710 

000004 



MOVB 

i4»(R0} 

IpLACE SYNC COUNT INTO HIGH 

412 








IBYTE LNSYN X 

413 

000446' 

012713 

010020 



MOV 

*10020«(B3) 

iCOUNT "16 HIGH FOR XMT 

414 








ILOW FOR RCV ,■ 

415 








1 BIT 3 ■ TRANSMIT SYNC ON INTR, 

416 

000452' 

062700 

000002 


C8i 

ADD 

82>R0 

lUPDATE LNSYN X POINTER 

417 

000456' 

005723 




TST 

tR3) + 

lUPDATE LNCNT X POINTER 

418 

000460' 

000257 




CCC 


ICLEAR CARRY BIT (CLR FOR TEST) 

419 

000462' 

106367 

001472 



ASLB 

PNTR 

IHAS 8 DPll'S BEEN INITIALIZED 

420 

000466' 

103361 




BCC 

D| 

|N0 CO BACK SET UP NEXT DP 

421 

000470' 

012767 

000001 

001462 


MOV 

81, PNTR |NEW POINTER 

422 

000476' 

036767 

001456 

177310 

KCKOFFi BIT 

PNTR.DVIDl 

lIS THIS LINE ON 

423 

000504' 

001411 




BEQ 

UPDAT 

IGO UPDATE ADDRESS 

424 

000506' 

052711 

000105 



BIS 

8105, (R15 

lINTR ENABLE, MAINT, MODE, 

425 








16 STRIP SYNC 

426 

000512' 

116761 

001444 

000003 


MOVB 

TSYNC,3(Rl) 

ILOAD SYNC BUFFER 

427 

000520' 

052712 

000312 



BIS 

8312, (R2} 

lINITIALIZE XMT STATUS 

428 








ITbDONE 

429 








lealNTR ENABLE 

430 








iJaXMT SYNC ON INTR 

431 








flalDLE SYNC 

432 

000524' 

105062 

000003 



CLRB 

3(R2) 

iCLEAR SYNC EXT 

433 

000530' 

062701 

177770 


UPDATl 

ADD 

8-10, R1 

t INDEX RCV CSR 

434 

000534' 

062702 

177770 



ADD 

8-10, R2 

1 INDEX XMT CSR 

435 

000540' 

000257 




CCC 


ICLEAR CONDITION CODES 

436 

000542' 

106367 

001412 



ASLB 

PNTR 

iMOVE POINTER FOR NEXT TEST 

437 

000546' 

103353 




BCC 

KCKOFF 

iGO ENABLE NEXT LINE 

438 

439 

000550' 

104400 




EXIT, 


•RETURN TO MONITOR, 

440 

000552' 

005113 



B8I 

COM 

tR3) 

ISET LNCNT X FLAG (THIS OP NOT SELECTED) 

441 

000554' 

005267 

001410 



INC 

NODVTS 

ISET UP DEVICE COUNT 

442 

443 

000560' 

000734 




BR 

C8 

iCb BACK 6 UPDATE REG, 

444 









445 









446 





ITHIS 

CODE WILL 

ANSWER THE XMT 

interrupt request 

447 





1 FOR 

SERVICE 



448 










449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 
(15 
( 1 ) 

461 


000562' 010046 


DPXMtI MOV 

RO,-(SP) 

000564' 010146 


MoV 

R1,-(SP) 

000566' O115O0 


MOV 

(R5},R0 

000570' 016001 

001520' 

“OV 

DVADl (RO),Rl 

000574* 105761 

000004 

TSTB 

4(Rn 

000600' 100415 


BMI 

DPXHTl 

0OC5O2' 010067 

1 77242 

MOV 

RO.CSRA 

000606' 011067 

177240 

MOV 

(PO),ACSR 

000612' 012601 


MOV 

CSP)*,Rl 

000614' 012600 


MOV 

C5P)*,Ro 

000616' 012605 


MOV 

CSP)+,R5 

00062c' 000004 

000626' OOOOOO' 

PlOQ. 

,FITEP,BFGiN 


iSAVE PEG, 0 ON stack 
(SAVE REG. 1 ON STACK 
iR6 HAS line no, orrsET 

JRI ■ RO WITH OrrSET VALUE 
iTEST IE DONE BIT SET 
iDONE IS SET CONT, PROGRAM 
tSAVE CSRA ADDR, 
iSAVE CONTENTS OF CSR 
iRESTORE STACK 
IRESTORE STACK 
IPESTORE STACK 


iQUEUE REQUEST TO CONTINUE AT EiTER 
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462 

000626' 



(1) 




(1 ) 

000626 ' 

104404 

oooooo 

t 1 ) 
46 3 

000632 ' 

1 044O0 


464 




465 




466 

000634' 

032761 

000010 

467 

000642' 

001 021 


468 

000644' 

1 16061 

001540 

469 

000652' 

1 05260 

001540 

470 

000656' 

122760 

000026 

471 

000664' 

O01002 


472 

000666' 

105260 

001540 

47 J 




474 




475 

000672' 

105360 

001561 

476 




477 

000676' 

001017 


478 

000700' 

052711 

000010 

479 

000704' 

000414 


480 

000706' 

116161 

000003 

481 

000714' 

105360 

001541 

482 

000720' 

001006 


483 

000722' 

1 12760 

000004 

484 

000730' 

042761 

OOOOlO 

485 

000736' 

012601 


486 

000740' 

O1260O 


487 

000742' 

012605 


488 

000744' 

000002 


489 




490 




491 




492 




49 3 

000746' 

010246 


494 

000750' 

010346 


495 

000752' 

010446 


496 

000754' 

011503 


497 

000756' 

016304 

001520 

498 

000762' 

105714 


499 

000764' 

100416 


500 

000766' 

010367 

177056 

501 

000772' 

011367 

177054 

502 

C00776' 

012604 


503 

001000' 

012603 


504 

001002' 

012602 


505 

001004' 

012605 


506 




C13 

001006' 

000004 

001014 

cn 




507 




508 

001014' 



cn 




Cl 3 

001014' 

1 04404 

oooooo 


000004 

000006 

001540' 


000006 

001541* 

000004 


000000 ' 
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509 

001020' 

1 04400 



510 





511 

001022' 

032764 

040000 

000004 

512 

001030* 

001432 



513 

001032* 

1 05363 

001540* 


514 

001036* 

1 05263 

001561' 


515 

001042* 

042764 

160000 

000004 

5 1 6 

001050* 

052763 

000010 

000004 

517 

001056' 

042713 

004000 


518 

001062* 

010367 

176762 


519 

001066' 

011367 

176760 


520 

001072' 

012604 



521 

001074' 

012603 



522 

001076' 

012602 



523 

001100' 

012605 



524 





cn 

001102' 

000004 

001110* 

OOOOOO 

cn 





525 





526 





527 

001110' 




cn 





cn 

001110' 

1 04404 

OOOOOO' 


cn 





528 

001114' 

104400 



529 





530 





531 

001116' 

032714 

004000 


532 

O01122' 

001437 



533 

O01124' 

005002 



534 

001126' 

066302 

001600* 


535 

001132' 

066302 

001500' 


536 

001136' 

116412 

O00002 


537 

001 142* 

1 22712 

000026 


538 

001 146* 

001425 



539 

001150' 

1 05263 

001600' 


540 

001154' 

1 05363 

001560' 


541 





542 

001160' 

001020 



543 





544 

001162' 

005014 



545 

001164' 

005064 

000004 


546 

001170' 

106367 

000772 


547 

001174' 

103375 



548 

001176' 

1 05767 

000764 


549 

001202' 

001007 



550 

001204' 

017604 



551 

001206' 

012603 



552 

001210* 

017602 



553 

001212' 

0 12605 



554 





f 1 ) 

001214* 

000004 

O01234* 

oonooo 

C 1 3 






PITER i 



t «***4 

FPPOP, 

, .begin 

»FALSE INTERRUPT 


EXIT. 


lBt,rUPN TO MONITOR, 

dpxmti I 

BIT 

810,4tpl) 

•TEST for RESYNC 


BnE 

DPXMT2 

•branch if in sync 


MOVB 

lnsyni(ro),6(Ri: 

1 (SEND DATA TO ACTIVE DP LINE NO PUFF 


INC& 

LNSYNI(RO) 

•INCRAMENT NEXT DATA WORD 


CMPB 

t26>LNSyNl(R0} 

•CHCK IS THIS ■ TO SYNC CHAR, 


BNE 

OPXMTJ 

jOK CONT. 


INCB 

LNSYNl(RO) 

•INC SYNC CHAR, (THIS IS DONE 




(SO THAT STRIP SYNC CHAR, WILL 
•NOT MAKE AN ERROR) 

0PXMT3I 

DECB 

LNCNTl^ltRO) 

•CHECK HAVE WE XMTED 
•ALL 16 CHAR,, THIS LINE 


BNE 

XMTRTN 

•NO RETURN TO MONITOR 


BIS 

4tO.(Rl} 

•SET RE-SYNC BIT 


BR 

XMTRTN 

•RETURN TO MONITOR, 

DPXMT2I 

MOVB 

3(Rl),S(Rl) 

•XMT SYNC CHAP, (T8YNC) 


DECB 

LNSYN141(R03 

•DEC SYNC COUNTER 


BNE 

XMTRTN 

•EXIT IF SYNC COUNT NOT ZERO 


MOVB 

»4.LNSYN1+1(Ro) 

IRE-IKITIALIZE SYNC COUNTER 


BIC 

•10»4(Rl) 

•CLEAR SYNC FLAG 

XMTRTNi 

MOV 

(SP)+,Rl 

•RESTORE STACK 


MOV 

(SP)4.R0 

I 


MOV 

(SP)4.R5 

1 


RTI 


•RETURN TO interrupter CODE 

I THIS 

CODE hill answer the RCv 

INTERRUPT 

1 REQUEST FOR 

SERVICE 


OPRCyl 

MOv 

R2.-(8P) 

•SAyE REG, 2 ON STACK 

MOV 

RI.-(SP) 

•SAVE REG, 3 ON STACK 


MOV 

R4,«(SP) 

•SAVE REG, 4 ON STACK 


MOV 

(RS}«R3 

•GET OFFSET 


MOV 

DVAD1(R3).R4 

•R3 ■ R4 DEVICE CODE OFFSET VALUE 


TSTB 

tR4) 

•IS DONE SET 


BMI 

DPRCVl 

•DONE SET ISERV DONE REQUEST 


MOV 

RS.CSRA 

•SHOW CSR AODR. 


MOV 

(R3).ACSR 

•CONTENTS OF CSR 


MOV 

(8P)4>R4 

•RESTORE STACK 


MOV 

(SP)4,R3 

> 


MOV 

(SP)+,R2 

1 


MOV 

(SP)4,R9 

1 . 


PlRQ.i 

iFIRER. BEGIN 

•QUEUE REQUEST TO CONTINUE AT FjRER 

riRERl 

f 

EBROP, 

begin 

•FALSE INTERRUPT 


MACyil.624 2t 
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EXIT. 


•RETURN TO MONITOR, 

DPRCVl i bit 

*40000, 4(r4} 

•is overrun bit SET 

BEO 

READ 

•NO OVERRUN Go BEAD DATA 

DECB 

LNSYN1(R3) 

•UPDATE XMT DATA 

TNCB 

LNCNT141(R3) 

• " 1 ACTIVE COUNT 

BIC 

•1S0000#4CR4) 

•CLEAR OVERRUN ERROR BITS 

BIS 

•10,4(R3) 

•SET RESYNC FLAG 

BIC 

*4000, (R3) 

•CLEAR RECEIVE ACTIVE 

MOV 

R3.CSRA 

•CSR ADDR, 

MOV 

(R3},ACSR 

•CONTENTS CSR 

MOV 

(SPl^'fRS 

•RESTORE STACK 

MOV 

(SP)4,R3 

t 

MOV 

(SP)4,R2 

1 

MOV 

(SP)+,R5 

1 

PlBQ,, 

pVERR , begin 

•QUEUE REQUEST TO CONTINUE AT OVERR 


I 


OVERR 1 

f •««*4 

ERROR, 

begin 

•OVERRUN ERROR 



EXIT. 


•RETURN TO MONITOR, 


READi 

BIT 

*4000, (r4) 

•IS DEVICE active 



BEO 

RCVRTn 

•GET OUT DEVICE MOl READY 



CLR 

R2 

•CLEAR BYTE PNTER 



ADO 

VRFLG1(R3),B2 

•GET BYTE OFFSET 



ADD 

DPLIN(R3},R2 

•ADDRbDATA buff ADDR 



MOVB 

2(B4),(B2) 

•DATA ■> data buff 



CMPB 

*26, (R2} 

»SKP IF SYNC BIT 



BEQ 

RCVRTN 

1 



INCB 

VRFLGl(R3) 

1 



DECB 

LNCNTl(R3) 

•CHECK HAVE WE TRANSFERRED 

ALL 




• DATA WORDS. 



BNE 

RCVRTN 

•THIS LINE NOT DONE RECEIVING 




•ALL DATA TRANSFERS 



CLP 

(P4) 

•CLEAR RCV, CSR REG, 



CLP 

*(R4) 

•CLEAR XMT, CSR, REG, 


X| 

ASLB 

DVIDA 




BCC 

X 




TSTB 

DVIOA 




BNE 

RCVRTN 




«0V 

(5P)*,R4 

•RESTORE STACK 



"OV 

(SP)t,R3 

1 



MOV 

CSP)*,P2 

f 



MOV 

(SP)*,R5 

r 



PIBQ., 

, CHCK, BEGIN 

•QUEUE REQUEST TO CONTINUE 

AT CHCK 
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sss 








|NO HAVE ALL LINES RCV 

5^0 








iSOME DATA WORDS YES WAIT 









iFOR COMPLEX 

559 









560 









561 

001222' 

' 012604 



PCVRTNl 

MOV 

(SP)*»R4 

•RESTORE STACK POINTER 

562 

001 224' 

• 012603 




MOV 

(SP)+,B3 

I 

563 

001226 

’ 012602 




MOV 

(SP)+,R2 

I 

564 

O01230' 

’ 012605 




MOV 

tSP)4,R5 

f 

565 

001232' 

’ 000002 




RTI 


•RETURN TO MAINLINE 

566 









567 









568 









569 

001234 

' 005001 



CHCK J 

CLR 

R1 


570 

O01 236' 

’ 005002 




CLR 

R2 


571 

ool 240' 

■ 005000 




CLR 

BO 

•CLEAR ROlBO WILL BE 

572 








•USED AS OFFSET 

573 

001 242' 

' 012767 

000020 

000722 

CHCKl 1 

MOV 

»20*COUNT 

•FOR COUNTING NO OF 

574 








•CHAR, READ 

575 

ool 250' 

’ 005002 




CLP 

B2 

•CLR BUFF POINTER 

576 

001252' 

’ 012701 

001560' 



MOV 

•LMCNTl,Bl 


577 

001256' 

’ 105711 



111 

TSTB 

(Bl) 


578 

001260 

' 001402 




BEQ 

CHCK2 


579 

001262' 

’ 022122 




CMP 

(BI)*,(B2>4 


580 

001264' 

’ 000774 




BR 

tl 


581 

001266 

' 010200 



CHCK2I 

MOV 

B2«B0 

•RO WILL HOLD LIME N0,/2 

582 

001270' 

’ 016202 

001500' 



MOV 

DPLIN(B2) ,B2 

»B2»8TART ADDP, this LINE BUFF 

583 

001274 

’ 111267 

000700 



MOVE 

(B2).CHECBB 

•GET FIRST CHAR, 

584 

001300' 

’ 126722 

000674 


CONTNUl 

CMPB 

CHECKB, (B2)4 

•CHECK DATA 6 INCB, POINTER 

585 

001 304' 

’ 001410 




BCQ 

11 

•THIS WORD GOOD GO CHECK MORE 

586 

001306 

' 122767 

000026 

000664 


CMPB 

•26, CHECKB 

•WAS IT STRIP CHAR, 

587 

001314 

' 001022 




BNE 

EBBBT 

|NO CO REPORT ERROR 

588 

001316 

' 005267 

000656 



INC 

CHECKB 

•YES UPDATE CHECHB 

589 

001 322' 

' 005302 




DEC 

B2 

•UPDATE OPLIN buffer POINTER 

590 

001324' 

’ 000765 




BB 

CONTNU 

•CO BACK 6 CHECK PEAL DATA 

591 

001326 

' 005267 

000646 


111 

INC 

CHECKB 

•SET UP FOB NEXT BYTE TEST 

592 

001332' 

’ 005367 

000634 



DEC 

COUNT 

•ONE MORE BYTE HAS BEEN TESTED 

. 593 

001336 

' 001360 




BNE 

CONTNU 

•NOT DONE YET GO CHECK MOPE 

594 

001340 

' 005267 

000624 



INC 

N0DVT5 

•THIS LINE DONE ADD 1 TO 

595 








•NO, OF DEVICES TESTED 

596 

001344 

’ 012711 

100777 



MOV 

•100777, (Bl) 


597 

001350' 

’ 022767 

000010 

000612 


CMP 

•10,N0DyTS 

•HAVE ALL LINES BEEN TESTED 

598 

001356 

' 001435 




BEQ 

PASS 

•CO TO END PASS CODING 

599 

001 360' 

’ 000730 




BB 

CHCKl 


600 









601 

001362' 

' 016067 

001520' 

176460 

Errbti 

MOV 

DVA01(B0),C8RA 

|CSRA*L1NE ADDp, 

602 

O01370' 

’ 005302 




DEC 

R2 

•UPDATE POInTEP TQ DATA BUFF 

603 

001372' 

' 111267 

176462 



HOVB 

(B2},AHAS 

•BAD DATA BYTE 

604 

001376' 

’ 005202 




INC 

R2 

•UPDATE POINTER TO DATA BUFF 

605 

001400' 

’ 116767 

000574 

176450 


MOVB 

CHECKB, ASB 

•GOOD DATA BYTE 

606 

001406' 

’ 005267 

000566 



INC 

CHECKB 

•UPDATE FOR NEXT TEST 

607 

001412' 

’ 005367 

000554 



DEC 

COUNT 

•ONE MORE BYTE HAS BEEN TESTED 

608 
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cn 

001416' 

’ 104405 

OOOOOO' 



OATEB, 

.BEGIN 

•DATA EBRORll t 

609 






****** 



610 









61 1 

001422 

’ 005767 

000544 


BESTQrI 

1 TST 

count 

•Are we done checking data on 

612 








•ON THIS LINE 

613 

001426 

' 001324 




BNE 

CONTNU 

•NOG GO DO THE REST OF THIS LINE 

614 

001430 

' 005267 

000534 



INC 

NODVT 8 

•YES THIS LINE DONE ADD 1 TO 

615 








•NODVTS>NO, DF LINES TESTED 

616 

001434 

’ 012711 

100777 



MOV 

• 100777, (R1 ) 


617 

001440 

' 022767 

000010 

000522 


CMP 

•lO.NOOVTS 

•HAVE ALL LINES BEEN TESTED 

618 

001446 

' 001401 




BEQ 

PASS 

•CO TO END PASS CODE 

619 

001450 

' 000674 




BR 

CHCKl 

•RETURN TO MONITOR 

620 









621 









622 

001452 

' 005367 

000516 


PASSI 

DEC 

pasct 

•Is THIS last pass 

623 

001456 

' 001402 




BEQ 

11 

•done exit 

624 

001460 

' 000167 

176476 



JMP 

START 

(NO GO DO ONE MORE 

625 

001464 

' 012767 

000100 

000502 

1(1 

MOV 

• 100 , pasct 

•SET NO, OF PASSES 

626 

001472 

’ 104402 

000162' 

’ OOOOOO* 


ENDP 8 , 

.START, BEGIN 

•SIGNAL END OF PASS, RESUME AT START 

627 









628 









629 









630 









631 





1 SYNC 

word storage locations 

(LINE SYNC <ll 8 >) 

632 









633 









634 

001500 

• 000000 



DPLINJ 

0 



635 

001502 

' 000000 




0 



636 

001504 

' 000000 




0 



637 

001506 

' 000000 




0 



638 

001510 

' 000000 




0 



639 

001512 

' OOOOOO 




0 



640 

O01514 

’ 000000 




0 



641 

001516 

’ OOOOOO 




0 



642 









643 









644 

001520 

’ OOOOOO 



DVADI • 

0 



645 

001522 

' OOOOOO 




0 



646 

001524 

’ OOOOOO 




0 



647 

001526 

’ OOOOOO 




0 



648 

001530 

' OOOOOO 




ft 



649 

001532' 

’ OOOOOO 




0 



650 

001534 

' OOOOOO 




0 



651 

001536 

• OOOOOO 




0 



652 









653 









654 

001540 

' OOOOOO 



LNsYNl 1 

1 OPEN 


•HIGH BYTE«SYNC COUNT NO, 

655 








•Low BYTE »BInAPY WqRD PATTERN 

656 

001542 

' nooooo 




npFN 



657 

001544 

• noopfto 




npFN 



658 

001546 

' 1^00000 




npEN 



659 

001550 

' OOPOPO 




OPFM 



660 

001552 

' ncPOPo 




Open 
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6A 1 

00)564' 

oonnoo 

npFN 


6A2 

001556' 

nonnoo 

OPEN 


663 

664 

665 

OO 1 560 ' 

ooonoo 

LMCf.'TH OPEN 

IHTGH BYT£»ND, XMyED INlEpRUPlS 

666 

667 

001562* 

000000 

OPEN 

ILOW BYTE ■ NO, RCV, INTERRUPTS 

668 

001564* 

000000 

OPEN 


669 

001566* 

nooooo 

OPEN 


670 

O01570* 

oooooo 

OPEN 


67i 

001572* 

000000 

OPEN 


672 

001574* 

oooooo 

OPEN 


673 

001576* 

oooooo 

OPEN 


674 

675 

676 

001600* 

oooooo 

VRFLGlI 0 

IBYtE offset value FDR READ 

677 

O01602' 

oooooo 

0 

> 

67B 

001604* 

oooooo 

0 

1 

679 

001606* 

oooooo 

0 

I 

680 

001610* 

oooooo 

0 

t 

681 

001612* 

oooooo 

0 

1 

682 

001614* 

oooooo 

0 

1 

683 

001616* 

oooooo 

0 

» 

684 

685 

686 

687 

688 

001620* 

oooooo 

IRECEIvE DAtK 

DPLINII OPEN 

16 bytes PER.BuEEER 

IDPII line »1 RECEIVE 

689 

001622* 

oooooo 

OWN 

1 DATA buffer. 

690 

001624* 

oooooo 

OPEN 


691 

001626* 

oooooo 

OPEN 


692 

001630* 

oooooo 

OPEN 


693 

001632* 

nooooo 

OPEN 


694 

001634* 

nooooo 

OPEN 


695 

001 636 * 

nooooo 

OPEN 


696 

697 

001640* 

oooooo 

DPLIN2t OPEN 

IDPII LINE 82 RECEIVE 

698 

001642* 

oooooo 

open 

1 DATA buffer. 

699 

001644* 

oooooo 

OPEN 


700 

001646* 

nooooo 

OPEN 


701 

001650* 

oooooo 

OPEN 


702 

001652* 

oooooo 

OPEN 


703 

001654* 

oooooo 

OPEN 


704 

001656* 

oooooo 

OPEN 

IDPII line 83 RECEIVE 

705 

001660* 

oooooo 

DPLIN3i OPEN 

706 

001662* 

oooooo 

OPEN 

1 TRANSMIT DATA BUFFER, 

707 

001664* 

oooooo 

OPEN 


7o8 

001666* 

oooooo 

OPEN 


709 

001670* 

oooooo 

OPEN 


7io 

001672* 

oooooo 

OPEN 


711 

001674* 

oooooo 

OPEN 


712 

001676* 

oooooo 

OPEN 

iDPll LINE 84 RECEIVE 

713 

001700* 

oooooo 

0PLIN4i OPEN 

714 

001702* 

oooooo 

OPEN 

1 DATA buffer 
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715 

001704* 

OOOOOO 

OPEN 



716 

001706* 

oooooo 

OPEN 



717 

001710* 

oooooo 

open 



718 

001712* 

OOOOOO 

OPEN 



719 

001714* 

oooooo 

OPEN 



720 

001716* 

oooooo 

OPEN 



721 

001720* 

oooooo 

DPLINSi OPEN 


iDPll LINE 85 RECEIVE 

722 

001722* 

oooooo 

OPEN 


1 DATA BUFFER 

723 

001724* 

oooooo 

OPEN 



774 

001726* 

nooooo 

OPEN 



725 

001730* 

oooooo 

OPEN 



726 

001732' 

oooooo 

OPEN 



727 

001734* 

oooooo 

OPEN 



728 

001736* 

oooooo 

OPEN 



729 

O01740* 

oooooo 

DPLIN6I OPEN 


IDPll line 86 RECEIVE 

730 

001742* 

oooooo 

OPEN 


1 DATA BUFFER 

731 

001744* 

oooooo 

OPEN 



732 

001746* 

oooooo 

OPEN 



733 

001750* 

oooooo 

OPEN 



734 

001752* 

oooooo 

OPEN 



735 

001754* 

oooooo 

OPEN 



736 

001756* 

oooooo 

OPEN 



737 

001760* 

oooooo 

DPLIN7i OPEN 


iDPll line 87 RECEIVE 

738 

001762* 

oooooo 

OPEN 


1 DATA buffer 

739 

001764* 

oooooo 

OPEN 



740 

001766* 

oooooo 

OPEN 



741 

001770* 

oooooo 

OPEN 



742 

001772* 

oooooo 

OPEN 



743 

001774* 

oooooo 

OPEN 



744 

001776* 

oooooo 

OPEN 



745 

002000* 

oooooo 

DPLINSI OPEN 


iDPll LIVE 88 RECEIVE 

746 

002002* 

oooooo 

OPEN 


1 DATA BUFFER 

747 

002004* 

oooooo 

OPEN 



748 

002006* 

oooooo 

OPEN 



749 

002010* 

OOOOOO 

OPEN 



750 

002012* 

oooooo 

OPEN 



751 

002014* 

oooooo 

OPEN 



752 

002016 ' 

oooooo 

OPEN 



753 






754 



I SERVICE CODE 

FOR LINKING A PAPTICULER DEVICE 

755 



f TO A COMMON 

XMT OR RCV 

service ROUTINE, 

756 






757 

002020* 

004567 176722 

LINKERI JSP 

rs.dprcv 

lANSwER line I RCV INTR 

758 

O02024* 

oooooo 

0 


1 OFFSET FOR LINE 1 

759 

O02026* 

004567 176530 

JSP 

P5.DPXMT 

rANSNER LINE 1 XMT INTR 

760 

002032* 

oooooo 

0 


I OFFSET FOR LINE 1 

761 

O02034* 

004567 176706 

JSR 

P5#DPRCV 

lANSWER line 2 PCV INTR 

762 

002040 * 

O000O2 

2 


lOFFSET FOR line 2 

763 

002042* 

004567 176514 

JSR 

P5.DPXMT' 

lAVSWER line 2 XMT INTR 

764 

002046' 

O0O0O2 

2 


lOFFSET FOR LINE 2 

765 

002050* 

004567 176672 

JSR 

R5#DPRCV 

lANSWER LINE 3 RCV INTR 

766 

002054* 

0 0 0 0 0 4 

4 


lOFFSET FOP line 3 

767 

002056* 

004567 176600 

JSR 

R5.DPXMT 

(ANSWER line 3 XMT INTR 

76B 

002062 ' 

ooOOf'4 

4 


lOFFSET FOR LINE 3 
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7PQ 

002064* 

004567 

1 76656 


JSR 

RS.DPRCV 

iANSWER line 4 RCV 

INTR 

770 

002070* 

000006 



6 


lOEESET FOR LINE 4 


77 1 

002072* 

004567 

1 76464 


JSR 

R5.0PXMT 

lANSWER line 4 XMT 

INTR 

772 

002076 * 

000006 



6 


jOFFSET rOR LINE 4 


773 

002100 * 

004567 

176642 


JSR 

RS.DPRCV 

lANSWER LINE 5 RCV 

INTR 

774 

002104 * 

000010 



10 


lOrrSET FOR LINE 5 


775 

002106* 

004567 

1 76450 


JSR 

R 5 .DPXMT 

lANSWCR LINE 5 XMT 

INTR 

776 

0021 1 2 * 

OOOOlO 



10 


•OFFSET FOR LIME 5 


777 

002114* 

004567 

176626 


JSR 

RS.DPRCV 

lANSWER LINE 6 RCV 

INTR 

778 

002120 * 

000012 



12 


•OFFSET FOR LINE 6 


779 

002122 * 

004567 

176434 


JSR 

R5.DPXMT 

•ANSWER line 6 X«T 

INTR 

7P0 

002126 * 

000012 



12 


•OFFSET FOP LINE 6 


7»1 

002130* 

004567 

1 76612 


JSR 

RS.DPRCV 

•ANSWER LINE 7 RCV 

INTR 

7R2 

002134* 

000014 



14 


•OFFSET FOR LINE 7 


7R3 

002136* 

004567 

176420 


JSR 

rs.dpxmt 

•ANSWER line 7 XMT 

INTR 

794 

002142* 

000014 



14 


•OFFSET FOR LINE 7 


7B5 

002144* 

004567 

176576 


JSR 

RS.DPRCV 

•ANSWER LINE 8 RCV 

INTR 

796 

002150* 

000016 



16 


•OFFSET FOR LINE 8 


797 

002152* 

004567 

1 76404 


JSR 

rs.dpxmt 

•ANSWER line 8 XMT 

INTR 

798 

002156* 

000016 



16 


•OFFSET FOP LINE 8 


7 9 9 
790 

002160* 

000000 


pntr'i 

OPEN 


IPNTR REG TO test 

DEVICE ON line 

791 

002162* 

013426 


tsynci 

13436 


•SYNC CODE 


792 

002164* 

oooooo 


CNTIOi 

OPEN 


•USED FOR COUNTER 

OF 64. 

793 

002166 * 

000000 


DVIDAl 

OPEN 


•POINTER FLAG WHICH WILL BRANCH TO 

794 







• TEST STATUS OF ALL LINES AFTER 

795 







•COMPLETING ONE LINE DATA TRANSFER 

796 

002170* 

OOOOOO 


NODVTSi 

OPEN 


•WHEN ALL LINES 

HAVE BEEN TESTED 

797 

002172* 

oooooo 


COUNT 1 

OPEN 


•COUNTS down from 

16 WHEN CHECKING 

708 







•DATA BUFFER REG, 


799 

002174* 

OOOlOO 


PASCTilOe 


•USED TO INCREASE 

NO, OF PASSES 

800 

002176* 

oooooo 


RCVDATj 

0 


•WORD USED TO INCRAMENT XMTED DATA 

801 

002200 * 

oooooo 


CHCCKRi 

0 


•STORES WORD BEING 

CHECKED 

892 


nonool 



.END 
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ACSR 


000052R 

ADDR 


000006 R 

A SB 


0000 S 6 R 

ASTAT 


000054R 

AWAS 


000060R 

BDCNV 


•••••• G 

BEGIN 


OOOOOOR 

BITO 


000001 

BlTl 

s 

000002 

BITlO 


003000 

BlTll 

a 

004000 

BIT12 


010000 

BIT13 

■ 

020000 

B1T14 


040000 

Bins 

• 

100000 

BIT2 


000004 

BIT3 

■ 

000010 

BIT4 


000020 

BITS 

a 

000040 

B1T6 


000100 

BIT7 

a 

000200 

BITS 


000400 

BIT9 

a 

001000 

BREAK. 


104407 

BRl 


000012R 

BR2 


000013P 

Bt 


000SS2R 

CHCK 


001234R 

CHCKl 


001242B 

CHCK2 


001266R 

CHECKR 


002200R 

CNT80 


002164R 

CONTNU 


001300B 

COUNT 


002172R 

CSRA 


OOOOSOR 

Cl 


000452R 

datep. 

m 

104405 

dplin 


OOlSOOR 

DPLINl 


0ei620R 

DPL1N2 


001640R 

DPLIN3 


001660B 

0PL1N4 


001700R 

DPLINS 


001720R 

DPLIN6 


001740R 

DPLIN7 


001760R 

DPLINS 


00300eR 

DPRCV 


000746R 

DPRCVl 


001022R 

DPXMT 


000563R 

OPXMTl 


0e0634R 

OPXMTa 


000706R 

DPXMT3 


Oeo672R 

OVAOl 


001520R 

OVIDA 


002166R 

DVIDI 


oeooMR 

Dt 


000432P 

EABITS 

s 

G 

CNDPS, 

8 

104402 

END. 

a 

104403 

ERRCNT 


000030R 

ERRN, 

a 

104410 

ERROR, 

8 

104404 

ERRRT 


001363R 

EXIT, 

a 

104400 

FIRER 


001014R 

FITER 


000626R 

HICORE 

a 

•••••• G 

INIT 


000022R 

TNT 


000324R 

KCKOFF 


000476R 

linker 


Q03020R 

LNCNTl 


001560R 

LNSYNl 


001540R 

LOCORE 

8 

•••••• G 

MODNAM 


OOOOOOR 

MODSP 


000162R 

MSGN. 

a 

104411 

MSG, 

a 

104406 

NODVTS 


003170R 

OACNV 

a 

••*••• G 

Open 

a 

OOOOOO 

bVERR 


oeiiioR 

PASCNI 


00002SR 

PASCT 


'002174R 

PASS 


001452R 

PC 

■%000007 

PIRQ. 


000004 

PNTR 


OO 2 I 6 OR 

POPSP 

a 

005726 

P0PSP2 

8 

032626 

PRTY 


OOOOOO 

PRTYo 

a 

OOODOO 

PRTYl 

a 

000040 

PRTY2 

a 

000100 

RRTY3 


000140 

PRTY4 

a 

000200 

PRTY5 

a 

000240 

PRTY6 

a 

000300 

PRTY7 


000340 

PS 

a 

177776 

PSW 

a 

177776 

PUSH 

a 

005746 

PUSH2 


024646 

DUE, 

a 

104401 

RCVDAT 


002176R 

RCVRTN 


001223R 

READ 


001116R 

RESTOP 


001422R 

PO 

■%ooooeo 

R1 

■AOOOOOl 

"2 

■4000002 

R3 

■4000003 

R4 

■%000004 

R5 

■4000005 

R6 

■4000006 

R7 

■4000007 

SBADR 


000052R 

SP 

■4000006 

SPOInT 


OOOe24R 

SPSIZ 

a 

000040 

SRI 


000016R 

START 


000162R 

STARTl 


000302R 

START2 


000374R 

STAT 


000020R 

SVRO 


000033R 

SVRl 


000034P 

SVR2 


000036R 

SVR3 


OOOO 4 OR 

SVR4 


000043R 

SVR5 


000044R 

SVR6 


000046P 

TPX 

s 

OOOOOO 

TRAPX 

a 

000013 

TSTNC 


003162R 

UPDAT 


000530P 

vector 


OOOOlOP 

VRFLGl 


001600P 

WASADR 


OOOOS4R 

WBUF 

a 

G 

X 


001170P 

XMTRTN 


000736P 

. 

a 

002202R 





002202 


ERRORS detected* 0 
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PRODUCT CODEi MAtNDEC*ll-DXXYA-B»D 
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1. ABSTRACTi 


XYA IS AN lONOD THAT EXERCISES THE XYll PLOTTER INTERFACE, 

A SQUARE WITH CROSSED CENTER LINFS IS CONTINUOUSLY DRAWN 

AS the paper roll advances. 

2. REQUIREMENTS! 

HARDWARE! XYH INTERFACE WITH ITS ASSOCIATED PLOTTER. 

STORAGE! XYA REQUIRES 6)3(10} WORDS OF STORAGE 

3. PASS DEFINITION! 

EACH COMPLETE FIGURE CONSTITUTES A PASS OF XYA. 

4. EXECUTION TIME! 

XYA RUNNING ALONE ON A PDPll/Os PROCESSOR TAKES 
APPR0XIMATELY.-«HINUTCS to complete ONE PASS, 

5. configuration REQUIREHENTSi 


default PaNANETERSi 

DCVADRi 173554, VECTOR! 130, BRlI 5 
REQUIRED PARAMETERS! 

NONE 

6, DEVICE/OPTION SETUP! 


A, TURN PLOTTER POWER AND DRUM DRIVE ON, 

B, manually POSITION THE PEN TO THE LEFT MARGIN, 
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7, MODULE OPERATION! 


A, SETUP THE XYll REGISTER ADRE5SES 

B, RAISE THE PEN AND FIND THE LEFT MARGIN, 

C, DRAW A SQUARE. 

D, DRAW A CROSS NITHIN THE SQUARE 

E, SPACE UP THE PAPER A DISTANCE ONE HALF THE SQUARE SIZE, 

F, REPEAT FROM T.B 

«, OPERATION OPTIONS! 


MODULE LOCATION STEPS (XYA 1154) M*Y BE USED TO CHANGE THE 
SIZE OF THE FIGURE. 

9, NON-STANDARD PRINTOUTS! 


NONE 
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oooooo' tD«aD <XXYAB >,172554,120,5 

000000' “ODULE 140000, XXYAB ,172554,120,5,, 

.TITLE XXYAB DFC/Xll SYSTEM EXERCISER MCCV' E 


000000' 


BEGIMI 

.LIST 

BIN 

IMODULE NAME. 

000000' 

054130 040531 

020102 MODNAMi 

.ASCII 

/XXYAB / 

000006' 

172554 

ADORf 

172554*0 

IlST DEVICE ADDR. 

000010' 

000120 

VECTORl 

120*0 


IlST DEVICE VECTOR, 

000012' 

240 

BRII 

.BYTE 

PRTY5*0 

IlST BR LEVEL. 

O0O013' 

000 

BR2I 

.BYTE 

PBTY*0 

|3ND BR LEVEL, 

000014' 

OOOOOl 

OVIDl t 

*1 


IDEVICE INDICATOR 1. 

000016' 

000000 

SRlt 

OPEN 


ISHITCH REGISTER 1 

O0O020' 

140000 

STATl 

140000 


1 STATUS WORD, 

000022* 

000162' 

INITi 

START 


iMODULE START ADDR, 

000024' 

000162' 

SPOlNTl 

MOOSP 


INODULE STACK POINTER, 

000026' 

000000 

PASCMTl 

0 


IPASS COUNTER. 

000030' 

OOOCOO 

ERRCNTi 

0 


lERROR COUNTER, 

000032' 

oooooo 

SVROI 

OPEN 


ILOC TO SAVE RO. 

000034' 

000000 

avRij 

OPEN 


ILOC TO SAVE Rl, 

000036' 

oooooo 

SVR2I 

OPEN 


•LOC TO SAVE R2. 

000040' 

oooooo 

SVR3t 

OPEN 


ILOC TO SAVE R3, 

000042' 

oooooo 

SVR4t 

OPEN 


ILOC TO SAVE R4, 

000044' 

oooooo 

SVRBj 

OPEN 


iLOC TO SAVE R5. 

000046' 

oooooo 

SVR6I 

OPEN 


iLOC TO SAVE R6, 

000050' 

000052' 

oooooo 

CSRAi 

SBADRi 

OPEN 


lADDR or CURRENT CSR, 
lADDR or GOOD DATA, OR 

000052' 

000054' 

oooooo 

ACSRt 

WASAORi 

OPEN 


ICONTENTS or CSR, 
lADDR or BAD DATA, OR 

000054' 

oooooo 

ASTATi 

OPEN 


ISTATUS REG CONTENTS, 

000056' 

oooooo 

ASBt 

OPEN 


lEXPECTED DATA, 

000060' 

000162' 

oooooo 

AWASi 

MOOSPt 

OPEN 

,REPT 

.NLIST 

.WORD 

,LIST 

.ENDR 

SPSZZ 

0 

1 ACTUAL DATA. 

iMODULE stack STARTS HERE, 
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316 

000162' 

012767 

000012 

001014 

STARTI 

MOV 

(10,,PASCTR 

IWILL DO sequence 10 TIMES PER PASS, 

317 

000170' 

016767 

177612 

001016 


MOV 

ADDRiXTCS 

ILOAD XYll CSR ADDRESS 

318 

000176' 

016767 

177604 

001012 


MOV 

ADDR.XYDB 

ILOAD XTll DBR ADDRESS 

319 

000204' 

062767 

000002 

001004 


ADO 

(2>XrOB 


320 

000212' 

016700 

177572 



MOV 

VECTOR, RO 

ISEIUP TO LOAD XYll PI INFO 

321 

000216* 

012720 

000262* 



MOV 

•STP1,(R0}* 

ILOAD PI VECTOR 

322 

000222' 

016720 

177564 



MOV 

BR1,(R0)* 

ILOAD BR LEVEL 

323 

000226' 

012777 

000100 

000760 


MOV 

dOOiSXTCS 

1 ENABLE PI 

324 

000234' 

005017 

000756 



CLR 

• XTDB 

IRAISE DUMMY INTERRUPT 

325 

000240' 

104400 




EXIT. 



326 









327 

000242' 




STPlt 




cn 

000242' 

000004 

000250* 

OOOOOO* 


PiRQ,, 

1(, BEGIN IQUEUE 

REQUEST TO CONTINUE AT 1( 

328 

000250' 

012777 

000274* 

177532 

1(1 

MOV 

•STP2,SVECTOR 

iCHAnCE Pi -VECTOR 

329 

000256' 

012767 

000062 

000726 


MOV 

•62, COUNT 

ISET COUNTER 

330 

000264' 

012777 

000040 

000724 


MOV 

•40,»XYDB 

IPCN UP 

331 

000272' 

104400 




EXIT. 



332 









333 

000274' 




STP2i 




cn 

000274' 

000004 

000302* 

OOOOOO' 


PiRO,, 

1(, BEGIN iQUEUE 

REQUEST TO CONTINUE AT 1( 

334 

000302' 

012777 

000320* 

177500 

1(1 

MOV 

•8TP2A,SVECTOR 

ICHAnCE Pi VECTOR 

335 

000310' 

012777 

OOOOlO 

000700 


MOV 

•lOfPXYDB 

IPEN RIGHT 

336 

000316' 

104400 




EXIT. 



338 

000320' 




5TP2AI 




cn 

000320' 

000004 

000326* 

OOOOOO* 


PIPQ.. 

2$, begin iQUEUE 

REQUEST TO CONTINUE AT 2( 

339 

000326' 

005367 

000660 


2(i 

DEC 

count 

IDONET 

340 

000332' 

001404 




BEO 

STP3 

ISKIP ir YES 

341 

000334' 

012777 

000010 

000654 


MOV 

•10,RXYDB 

iNO- PEN BIGHT 

342 

000342' 

104400 




EXIT. 



344 

000344' 

012777 

000362* 

177436 

STP3| 

MOV 

•STP4,iVECT0R 

ICHANCE PI vector 

345 

000352' 

012777 

000020 

000636 


MOV 

•20,iXYDB 

ipen down 

346 

000360' 

1 04400 




EXIT. 



347 









348 

000362' 




STP4i 




cn 

000362' 

000004 

000370' 

OOOOOO' 


PiPQ.. 

16, BEGIN IQUEUE 

REQUEST TO CONTINUE AT 1( 

349 

000370' 

012777 

000414' 

177412 

181 

MOV 

•STP9,» vector 

ichange Pi vector 

350 

000376' 

016767 

000604 

000606 


MOV 

STEPS, COUNT 

{LOAD COUNT 

351 

000404' 

012777 

OOOOIC 

000604 


MOV 

•10,PXrDB 

IPEN RIGHT 

352 

000412' 

104400 




EXIT. 




353 
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C 1 1 
tl ) 

000414' 

0000^4 

P0O422' 

000000' 


PIPQ, , 

IS, BEGIN lOUEKE 

REQUEST TO CONTINUE 

AT 

1$ 

C 1 ) 

3*^6 

000422' 

005357 

O00564 


1 SI 

DEC 

COUNT 




357 

000426' 

001404 




BEO 

STP6 

ISKIP IF YES 



35B 

000430' 

012777 

POOOl 0 

000560 


MOV 

■iO,6XYDB 

tNO- PEN right 



359 

000416' 

104400 




EXIT. 





360 











351 

000440' 

012777 

000464' 

177342 

STP6I 

MOV 

•9TP7,6VECTDR 

fCHANGE PI VECTOR 



362 

000446' 

016767 

000534 

000536 


mqV 

STEPS, Count 

I load Count 



353 

000454' 

012777 

000001 

000534 


MOV 

tl,»XyDB 

IDRUH DOWN 



354 

000462' 

104400 




EXIT. 





365 











366 

000464' 




STP7 1 






El) 

000464* 

000004 

000472' 

oooooo' 


PlPO., 

IS, begin iOUEUE 

REQUEST TO CONTINUE 

AT 

IS 

3^7 

000472' 

005367 

000514 


1 st 

DEC 

count 

iDone? 



368 

000476' 

001404 




BEQ 

STPIO 

lYES- SKIP 



369 

000500' 

012777 

OOOOOl 

000510 


MOV 

ll,»XYOB 

INO- DRUM DOWN 



370 

000506' 

104400 




EXIT. 





371 











372 

000510' 

012777 

000534' 

177272 

STPIOI 

MOV 

• STPU,6VCCT0R 

ICHANCE PI VECTOR 



373 

000516' 

016767 

000464 

000466 


MOV 

STEPS, Count 

iLoAD Counter 



374 

000524' 

012777 

000004 

000464 


MOV 

t4,6XY0B 

IPEN LEFT 



375 

000532' 

104400 




EXIT. 





376 











377 

000534' 




STPU 1 






(1) 

000534' 

000004 

000542' 

oooooo' 


PIPQ., 

IS, BEGIN 1 QUEUE 

REQUEST TO CONTINUE 

AT 

IS 

370 

000542' 

005367 

000444 


isi 

DEC 

COUNT 

IDONET 



379 

000546' 

001404 




BEO 

STP12 

ISKIP IF YES 



380 

000550' 

012777 

000004 

000440 


MOV 

•4,6XY0B 

»N0- PEN LEFT 



381 

000556' 

1 04400 




EXIT. 





382 











383 

000560' 

012777 

000604' 

177222 

8tP12I 

MOV 

•8tP13,6VECtOB 

ichange PI vector 



384 

000566' 

016767 

000414 

000416 


MqV 

STEPS, Count 

iLqad Counter 



385 

000574' 

017777 

000002 

000414 


MOV 

•2,6XYDB 

IDRUM UP 



386 

000602' 

104400 




EXIT, 





387 











388 

000604' 




SxP13l 






C 1 ) 

000604' 

000004 

000612' 

OOOOOO' 


PIPQ., 

IS, begin iQUEUE 

request to Continue 

AT 

1$ 

399 

000612' 

005367 

000374 


ISI 

DEC 

count 

iDONET 



390 

000616' 

001404 




BEQ 

STP14 

iSKIP IF YES 



391 

000620' 

012777 

000002 

000370 


MOV 

»2,PXYDB 

iNO- DRUM UP 



392 

000626' 

1 04400 




EXIT. 
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395 

000630' 

012777 

000654' 

177152 

STP14I 

MOV 

ISTPIS.SVECTOR 

ICHANGE PI VECTOR 


396 

000636' 

016767 

000344 

000346 


MOV 

STEPS, COUNT 

•LOAD COUNT 


397 

000644' 

012777 

000011 

000344 


MOV 

tll.RXYDB 

(DRUM DOWN AND PEN 

RIGHT 

398 

000652' 

104400 




EXIT. 




399 










400 

000654' 




STP15I 





(1) 

000654' 

000004 

000662* 

OOOOOO' 


PiRQ. 

, It, BEGIN iQUEUE 

REQUEST TO CONTINUE 

AT It 

4P1 

000662' 

005367 

000324 


ISI 

DEC 

COUNT 

IDONET 


402 

000666' 

001404 




BEQ 

STP16 

ISKIP IF YES 


403 

000670' 

012777 

OOOOll 

000320 


MOV 

tlURXTDB 

|N0« DRUM DOWN AND 

PEN RIGHT 

404 

000676' 

1 04400 




EXIT. 




405 










406 

000700' 

012777 

000716' 

177102 

STPISI 

MOV 

•STP17,*VECT0R 

ichange Pi vector 


407 

000706' 

012777 

000040 

000302 


MOV 

t40,PXYDB 

ipen up 


408 

000714' 

104400 




EXIT. 




409 










410 

tn 

CD 

cn 

411 

000716' 




8TP17I 





000716' 

000004 

000724' 

OOOOOO' 


PIPQ, 

, It , begin fOUEUE 

REQUEST TO CONTINUE 

AT It 

000724' 

012777 

000750' 

17705B 

Isi 

MOV 

SSTP20,PVECTOR 

ichange Pi VECTOR 


412 

000712' 

016767 

000250 

000252 


MOV 

STEPS, COUNT 

iLOAD COUNTER 


413 

000740' 

012777 

000002 

000250 


MOV 

t2,tXYDB 

iDRUM UP 


414 

415 

416 
(13 
(1) 
(1) 

417 

000746' 

1 04400 




EXIT. 




000750' 




STP20I 





O00750' 

000004 

000756' 

OOOOOO' 


PiRQ. 

, It, BEGIN lOUEUE 

REQUEST TO CONTINUE 

AT 11 

000756' 

0053S7 

000230 


ISi 

DEC 

Count 

IDONET 


4 t « 

000762' 

001404 




BEQ 

STP21 

ISKIP IP yes 


419 

000764' 

012777 

000002 

000224 


MOV 

fl.tXYDB 

|N0> DRUM UP 


420 

421 

422 

000772' 

104400 




EXIT. 




000774' 

012777 

001012' 

177006 

STP21 1 

MOV 

*STp22,tVECT0R 

ichange PI VECTOR 


423 

001002' 

012777 

O0O02O 

000206 


MOV 

*2e,RXYDB 

iPEN DOWN 


424 

001010' 

104400 




EXIT. 




425 










426 
(13 
(13 
(13 

427 

001012' 




STP22I 





001012' 

009004 

901020' 

OOOOOO' 


PiRQ. 

, It, BEGIN lOUEUE 

REQUEST TO CONTINUE 

AT 11 

001020' 

012777 

001044' 

176762 

ISI 

MOV 

•STP23,tVECT0R 

ichange Pi VECTOR 


428 

001026' 

016767 

000154 

O00156 


MOV 

STEPS, COUNT 

ILOAD COUNTER 


429 

001034' 

012777 

000005 

000154 


MOV 

•S,»XYDB 

iDRUM DOWN AND PEN 

LEFT 

430 

431 

001042* 

1044O0 




FXIT. 
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433 
( 1 ) 
tn 
cn 

434 

435 

436 

437 

438 
4 39 

440 

441 

442 

443 
(1) 
tn 
tn 

444 

445 

446 

447 

448 

449 

tn 

cn 

tn 

450 

451 

452 

453 

454 

455 

456 

457 

458 

tn 

459 

460 

461 

462 

463 
46 4 

465 

466 

467 


001044* 




STP23I 





001044* 

000004 

001052’ 

OOOOOO * 


PlPQ.i 

,11, BEGIN IQUEUE 

RCCRST TO CONTINUE AT 

11 

OOl 052* 

"05367 

0001 34 


ISI 

DEC 

count 

idonet 



0014^4 




BEQ 

STP24 

ISKIP IE YES 


001060* 

012777 

000005 

000130 


MOV 

tS.PXYOB 

|N0- DRUM DOWN AND PEN 

lfft 

001066* 

1 04400 




EXIT. 




001 070* 

012777 

001106* 

17671 2 

StP24| 

MOV 

4StP25,BVECtOR 

tCHANGE PI vector 


001076* 

012777 

000040 

000112 


MoV 

I40,BXYDB 

IPEN UP 


OOl 104* 

1 04400 




EXIT. 




001106* 




STP25I 





001 106* 

300004 

001114* 

OOOOOO* 


PiRO., 

,11, begin lOUEUE 

BEQUEST TO CONTINUE AT 

11 

001114* 

012777 

001140* 

176666 

tit 

f -•••• 

MOV 

ISTP26,mCT0R 

ICHANOE PI VECTOR 


OOl 122* 

016767 

000062 

000062 


MOV 

HALF, count 

ILOAD COUNTER 


001130* 

012777 

OOOOOl 

000060 


MOV 

•1,»XY0B 

IDRUM DOWN 


001136* 

104400 




EXIT. 




001140* 




STP36I 





001140* 

000004 

001 146* 

OOOOOO* 


PlPO,, 

,11, begin tOUEUE 

REQUEST TO CONTINUE AT 

11 

001146* 

005367 

000040 


111 

DEC 

COUNT 

idonet 


001152* 

001404 




BEO 

STPIT 

lYES- REDRAW PATTERN 


001154* 

012777 

000001 

000034 


MOV 

•l.BXYOB 

INO- DRUM DOWN 


001162* 

1 04400 




EXIT. 




001164' 

005367 

000014 


STP27I 

DEC 

PASCTR 

IDONE required times? 


001170' 

001402 




BEQ 

11 

IBR ir yes. 


001172* 

000167 

177146 



JMP 

STP3 

|NO CO DO IT AGAIN, 


001176* 




111 





001176* 

104402 

000162* 

OOOOOO* 


ENdPSi 

,, START, Begin 

isignal end Of pass. Resume at start 

001204* 

OOOOOO 



PASCTRi 

OPEN 




001206' 

000454 



STEPS 1 

300, 




001210' 

000226 



HALFl 

ISO, 




001212* 

000000 



COUNT 1 

0 




001214* 

OOOOOO 



XYCSi 

-0 




001216* 

OOOOOO 



XYDBl 

0 





000001 




• END 


IIHAT'S ALL FOLKSl 



XXYAB DEC/Xll SYSTEM EXERCISER MODULE MACYll.624 21-AUG-73 14|54 PACE 4-5 

XXYAP, Pll symbol table 


ACSR 


000052B 

ADDR 


000006R 

ASB 


000088R 

A8TAT 


000054R 

AWAS 


000060B 

BDCNV 


•••••• G 

BEGIN 


OOOOOOR 

BITO 

a 

OOOOOl 

BITl 

s 

000002 

BITIO 


002000 

BITll 

■ 

004000 

BIT12 

a 

010000 

PIT] 3 

s 

020000 

PIT14 


040000 

BIT15 

a 

100000 

BIT2 

a 

000004 

BIT3 

s 

000010 

BIT4 


000020 

BITS 

■ 

000040 

BXT6 

a 

000100 

BIT7 

e 

000200 

BITS 


000400 

BIT9 

B 

ooieoe 

BREAK, 

a 

104407 

BRl 


000012P 

BR2 


000013R 

COUNT 


ootatsR 

CSRA 


000050R 

DATER, 

M 

104405 

DVIDI 


000014R 

EABirS 

a 

»••••• G 

ENDPS, 

a 

104402 

END , 

m 

104403 

ERRCNT 


000030R 

errn. 

a 

104410 

ERROR, 

a 

104404 

EXIT. 

a 

104400 

HALF 


001210R 

HICORE 

a 

••••*• G 

INIT 


000022R 

locope 

a 

»••••• G 

MODNAM 


OOOOOOR 

MODSP 


000162R 

MSCN, 

= 

104411 

MSG, 

a 

104406 

OACNV 

a 

••••«• G 

OPEN 

a 

OOOOOO 

PASCNT 


000026P 

PASCTR 


001204R 

PC 

»%000007 

PIRO. 

a 

000004 

POPSP 

a 

005726 

POPSP2 

a 

022626 

PRTY 

a 

OOOOOO 

PRTYO 

a 

OOOOOO 

PRTYl 

a 

000040 

prty? 

a 

OOOlOO 

PRTY3 

a 

000140 

PRTY4 

a 

000200 
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